Re: How do I copy out the last line written in a file?

in reply to How do I copy out the last line written in a file?

use Tie::File;
sub last_line_of_file
{
    my $file = shift;
    tie my @array, 'Tie::File', $file or die "read $file - $!";
    $array[-1]
}
[download]

In Section Seekers of Perl Wisdom