Help for this page

Select Code to Download

Select or download this

# don't do this
my @lines;
open(DATA, ">file1");
...
    push @lines, $_;
}
process(@lines);

Select or download this

sub read_file {
    my $filename = shift;
    open (DATA, ">$filename") or return;    # could die on error
    my @lines = <DATA>;
    return process(@lines);
}