stdin/stdout with perl not o.k

["Gerrit P. Haase" <gerrit dot haase at t-online dot de>]

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