[Cascavel-pm] Res: Ler arquivo - ultimas linhas

[Patty Silva]

#!/usr/bin/perl



@ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja <NOME> <LINHA>\n";



($arquivo, $linha) = @ARGV;

open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo para leitura: $!\n";

while (<INFILE>) {

    $linha = $_;

    last if $. == $linha;

}

if ($. != $linha) {

    die "Nao eh possivel encontrar a linha desejada no arquivo...\n";

}

print;

----- Mensagem original ----
De: Nelson Ferraz <nferraz em gmail.com>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Sexta-feira, 31 de Agosto de 2007 18:40:29
Assunto: Re: [Cascavel-pm] Ler arquivo - ultimas linhas

> 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. :-)
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm







      Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070831/9408f376/attachment.html