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

[Fernando Oliveira]

perl -e 'print((<>)[-3..-1])' arquivo

Em 31/08/07, eden <edencardim em gmail.com> escreveu:
>
> 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
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070831/17347d0a/attachment.html