<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">#!/usr/bin/perl<br>
<br>
@ARGV == 2 or die "entre com o nome do arquivo e a linha que deseja <NOME> <LINHA>\n";<br>
<br>
($arquivo, $linha) = @ARGV;<br>
open(INFILE, "< $arquivo") or die "Nao é possivel abrir o arquivo para 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><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Nelson Ferraz <nferraz@gmail.com><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Sexta-feira, 31 de Agosto de 2007 18:40:29<br>Assunto: Re: [Cascavel-pm] Ler arquivo - ultimas linhas<br><br><div>> Pessoal.. tem como eu ler as 3 ultimas linhas de um arquivo?? :D<br><br>Bom,<br><br>Deixe-me desenvolver um pouco mais a resposta anterior:<br><br> 1 #!/usr/bin/perl<br> 2<br> 3 use strict;<br> 4 use warnings;<br> 5<br> 6 use Tie::File;<br> 7<br> 8 my @array;<br>
9<br> 10 tie @array, 'Tie::File', $ARGV[0]<br> 11 or die "Can't tie to '$ARGV[0]': $!\n";<br> 12<br> 13 print "$array[-1]\n";<br><br>Deixo o desafio de ler as três últimas linhas como um exercício à <br>leitora. :-)<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></div></div><br></div></div><br>
Flickr agora em português. Você clica, todo mundo vê. <a href="http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/">Saiba mais</a>.
</body></html>