This is the mail archive of the cygwin@sources.redhat.com mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: stdin/stdout with perl not o.k


Your script works fine here.

~ > ./test.pl
Are you o.k?[yes/no] yes

fine...


cygutils perl-5.6.0
cygwin-1.1.6-1

--Chuck


"Gerrit P. Haase" wrote:
> 
> Hi there,
> 
> if i run this perl-script, i get no Output before i made an input at
> STDIN.
> The same in C is o.k.
> Anyone able to test it, because i don't know, whether it is a problem
> with my cygwin installation, with my perl installation or a problem
> with cygwin itself?
> 
> Thanks!
> 
> #!/usr/local/bin/perl
> # iocheck.pl
> print "Are you o.k?[yes/no] ";
> $input = <STDIN>;
> chomp $input;
> if ($input eq 'yes') {
>         print "\nfine...\n";
> } else {
>         print "\nohhh...\n";
> }
> 
> OUTPUT:
> $ io-check.pl
> yes
> Are you o.k?[yes/no]
> fine...
> 
> =========================================
> 
> The same in C is o.k.
> 
> =========================================
> /*
>  *IO-check
>  */
> #include <stdio.h>
> 
> int main(void) {
>   char ask[5];
>   int i;
> 
>   printf("\nAre you ok?[yes/no] ");
>   gets(ask);
>   printf("\n");
>   for (i=0;ask[i];i++)
>   {
>         if (ask[i]=='y')
>         {
>             puts("fine...\n");
>         }
>         else if (ask[i]=='n')
>         {
>             puts("ohhh...\n");
>         }
>   }
>   return 0;
> }
> 
> OUTPUT:
> $ iocheck.exe
> 
> Are you ok?[yes/no] yes
> 
> fine...
> 
> --
> =^..^=
> Gerrit Peter Haase
> 
> --
> Want to unsubscribe from this list?
> Check out: http://cygwin.com/ml/#unsubscribe-simple

--
Want to unsubscribe from this list?
Check out: http://cygwin.com/ml/#unsubscribe-simple


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]