Help for this page
use File::Stream; my $stream = File::Stream->new($filehandle); $/ = qr/\s*,\s*/; print "$_\n" while <$stream>;
use File::Stream::Improved; $/ = qr/regex/; my @records = <HANDLE>; # where HANDLE might also be $handle
www.com | www.net | www.org
No recent polls found