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

[eden]

On 8/31/07, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> #!/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;

Bem, pelo visto, o desempenho não importa, então, golfe!

perl -e 'print(reverse((reverse <>)[0..2]))' arquivo

-- 
edenc.vox.com