Help for this page

Select Code to Download


  1. or download this
    <FILE>
  while ($line_no--);
my $line2 = <FILE>;
  2. or download this
    use File::Slurp qw(slurp);
my $f = slurp $filename;
my $line2 = $1
  if (m!\n{$line_no-1}([^\n]*)\n!sm);