<span style="font-family: courier new,monospace;">Fernando e seu vício em código one-line. Cara tenho medo só de imaginar como devem ser os teus códigos :) ... excelente tacada.</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">Abraços,</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
Solli M. Honório</span><br><br><div><span class="gmail_quote">On 8/31/07, <b class="gmail_sendername">Fernando Oliveira</b> &lt;<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>&gt; wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
perl -e &#39;print((&lt;&gt;)[-3..-1])&#39; arquivo<br><br><div><span class="gmail_quote">Em 31/08/07, <b class="gmail_sendername">eden</b> &lt;<a href="mailto:edencardim@gmail.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
edencardim@gmail.com</a>&gt; escreveu:</span>
<div><span class="e" id="q_114be4a66c5e55dc_1"><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 &lt;<a href="mailto:ptfzs@yahoo.com.br" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
ptfzs@yahoo.com.br</a>&gt; wrote:
<br>&gt;<br>&gt; #!/usr/bin/perl<br>&gt;<br>&gt;&nbsp;&nbsp;@ARGV == 2 or die &quot;entre com o nome do arquivo e a linha que deseja &lt;NOME&gt;<br>&gt; &lt;LINHA&gt;\n&quot;;<br>&gt;<br>&gt;&nbsp;&nbsp;($arquivo, $linha) = @ARGV;<br>&gt;&nbsp;&nbsp;open(INFILE, &quot;&lt; $arquivo&quot;) or die &quot;Nao é possivel abrir o arquivo para
<br>&gt; leitura: $!\n&quot;;<br>&gt;&nbsp;&nbsp;while (&lt;INFILE&gt;) {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$linha = $_;<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;last if $. == $linha;<br>&gt;&nbsp;&nbsp;}<br>&gt;&nbsp;&nbsp;if ($. != $linha) {<br>&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;die &quot;Nao eh possivel encontrar a linha desejada no arquivo...\n&quot;;
<br>&gt;&nbsp;&nbsp;}<br>&gt;&nbsp;&nbsp;print;<br><br>Bem, pelo visto, o desempenho não importa, então, golfe!<br><br>perl -e &#39;print(reverse((reverse &lt;&gt;)[0..2]))&#39; arquivo<br><br>--<br><a href="http://edenc.vox.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
edenc.vox.com
</a><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br></blockquote></span></div></div><span class="sg"><br><br clear="all"><br>-- <br>[]&#39;s Fernando
</span><br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa