Help for this page

Select Code to Download


  1. or download this
    my $content;
{
...
   open my $fh, $_[0] or die "Can't open $_[0]: $!";
   $content = <$fh>;
}
  2. or download this
    sub slurp {
   local $/ = undef;
...
}
my $content = slurp('filename');
print $$content;
  3. or download this
    use Slurp;
my $content = slurp('filename');