Help for this page

Select Code to Download


  1. or download this
    use File::Stream;
my $stream = File::Stream->new($filehandle);

$/ = qr/\s*,\s*/;
print "$_\n" while <$stream>;
  2. or download this
    use File::Stream::Improved;
$/ = qr/regex/;
my @records = <HANDLE>;
# where HANDLE might also be $handle