sysread

[Dr.Ruud]

Larry schreef:

what I am trying to do is:

if ( $io->fdopen(fileno(STDIN),"r") )
{
while($io->read(my $buf, 1024))
{
# ...deal with $buf...
}
$io->close;
}

{ local $/ = \1024;
while ( <> ) {
# ... deal with $_
}
}