stdin/stdout with perl not o.k
Gerrit P. Haase
gerrit.haase@t-online.de
Mon Dec 18 04:12:00 GMT 2000
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
More information about the Cygwin
mailing list