stdin/stdout with perl not o.k
Charles Wilson
cwilson@ece.gatech.edu
Mon Dec 18 06:07:00 GMT 2000
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
More information about the Cygwin
mailing list