Help for this page

Select Code to Download


  1. or download this
    open my $fh, "<", $filename
    or die "Can't open $filename: $!\n";
...
my $lastline;
$lastline = $_ while <FILE>;
print "$lastline\n";
  2. or download this
    use Tie::File;
tie my @file, 'Tie::File', $filename
    or die "Can't open $filename: $!\n";
print @file[ -1 ];
  3. or download this
    use File::ReadBackwards;
tie *FH, 'File::ReadBackwards',  $filename
    or die "Can't open $filename: $!\n";
my $lastline = <FH>;
print $lastline;