Hi all, I want to create a non-blocking read on STDIN, that means I don't have to enter RETRUN, each characters would show up just after I have enter it on the terminal. How can I do this? I used the code below, but it just did not work out?
btw: No Term::ReadKey
#!/usr/bin/perl
use strict;
use warnings;
use Errno qw/EWOULDBLOCK/;
use IO::Socket;
#my $socket = IO::Socket::INET->new( 'localhost:5555', ) or die "Faile
+d";
STDIN->blocking(0);
my $data;
while (1) {
my $rc = sysread( STDIN, $data, 1024 );
if ( defined $rc ) {
if ( $rc > 0 ) {
# print $socket $data;
print $data,"\n";
}
else {
# close $socket;
}
}
elsif ( $! == EWOULDBLOCK ) {
next;
}
else {
die "sysread error:$!";
}
}
#close $socket;