[Cascavel-pm] Ler arquivo - ultimas linhas

[Nelson Ferraz]

> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D

Bom,

Deixe-me desenvolver um pouco mais a resposta anterior:

       1 #!/usr/bin/perl
       2
       3 use strict;
       4 use warnings;
       5
       6 use Tie::File;
       7
       8 my @array;
       9
      10 tie @array, 'Tie::File', $ARGV[0]
      11     or die "Can't tie to '$ARGV[0]': $!\n";
      12
      13 print "$array[-1]\n";

Deixo o desafio de ler as três últimas linhas como um exercício à  
leitora. :-)