in reply to Reading non-blockingly / "awk has to be better for something."

my $line = '';
my $chr;
$line .= $chr until (($chr = getc($fh)) =~ /[\r\n]/);

[download]
Not tested, but it might work, or at least give you an idea.
  • Comment on Re: Reading non-blockingly / "awk has to be better for something."
  • Download Code

In Section Seekers of Perl Wisdom