perl -e 'print((<>)[-3..-1])' arquivo<br><br><div><span class="gmail_quote">Em 31/08/07, <b class="gmail_sendername">eden</b> <<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>> escreveu:</span>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">On 8/31/07, Patty Silva <<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>> wrote:
<br>><br>> #!/usr/bin/perl<br>><br>> @ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja <NOME><br>> <LINHA>\n";<br>><br>> ($arquivo, $linha) = @ARGV;<br>> open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo para
<br>> leitura: $!\n";<br>> while (<INFILE>) {<br>> $linha = $_;<br>> last if $. == $linha;<br>> }<br>> if ($. != $linha) {<br>> die "Nao eh possivel encontrar a linha desejada no arquivo...\n";
<br>> }<br>> print;<br><br>Bem, pelo visto, o desempenho não importa, então, golfe!<br><br>perl -e 'print(reverse((reverse <>)[0..2]))' arquivo<br><br>--<br><a href="http://edenc.vox.com">edenc.vox.com
</a><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br></blockquote></div><br><br clear="all"><br>-- <br>[]'s Fernando