Help for this page

Select Code to Download


  1. or download this
    my $fh = IO::File->new;
*{$fh} = \ "foo";       # we'll split at foo
...
    local $/ = ${*{$fh}{SCALAR}};
    @ary     = <$fh>;
}
  2. or download this
    {
    local $/ = $$$fh;
    @ary     = <$fh>;
}
  3. or download this
    *{$fh} = \ { input_record_separator  => "foo" };
{
    local $/ = $$$fh->{input_record_separator};
    @ary     = <$fh>;
}