<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">Em 1 de agosto de 2014 12:43, Leonardo Berbert Gomes <span dir="ltr"><<a href="mailto:leoberbert@uol.com.br" target="_blank">leoberbert@uol.com.br</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div>Amigos,</div>
<div> </div>
<div>Tenho uma pequena duvida. Tenho o seguinte bloco de codigo abaixo:</div>
<div> </div>
<div>
<div>while ($final = <FILE>) {</div>
<div>        chomp $final;</div>
<div>        if ($final =~/Min|SDFCrtInvoice/) {next}</div>
<div>        if ($final =~ /Avg\|.*/){</div>
<div>        $final =~s/   /;/g;</div>
<div>        $final =~s/; /;/g;</div>
<div>        $final =~s/  /;/g;</div>
<div>        $final =~s/ \|;/;/g;</div>
<div>        $final =~s/; /;/g;</div>
<div>        $final =~s/\|;/;/g;</div>
<div>        $final =~s/^ //g;</div>
<div>        $final =~s/ /;/g;</div>
<div>        my @fields = split /;/, $final;</div>
<div>        my ($process, $resp_time) = @fields[0, 4];</div>
<div>        print "$process -> $resp_time\n";</div>
<div>        }</div>
<div>}</div>
</div>
<div> </div>
<div>Este codigo tra o resultado abaixo:</div>
<div> </div>
<div>
<div>PROC1 -> 5.70s</div>
<div>PROC1 -> 7.93s</div>
<div>PROC1 -> 5.56s</div>
</div>
<div>PROC2-> 85.6</div>
<div>
<div>PROC2 -> 83.1</div>
<div>PROC2 -> 87.1</div>
</div>
<div> </div>
<div>Preciso exibir apenas a ultinha de cada processo da coluna 1. que no caso seria:</div>
<div> </div>
<div>PROC1 -> 5.56s</div>
<div>PROC2 -> 87.1</div>
<div> </div>
<div>Alguém consegue me ajudar?</div></blockquote><div><br></div><div>Usar um hash resolve, mas se forem arquivos grandes para processar valeria refazer a sequencia de regexp como uma única regexp, eliminar inclusive a primeira e fazê-la devidamente ancorada no início e no fim. Como sugestão, seria legal colocar o script num gist público e colocar uma sequencia de dados de teste/exemplo no __DATA__ [<a href="http://perldoc.perl.org/perldata.html#Special-Literals">http://perldoc.perl.org/perldata.html#Special-Literals</a>] do arquivo para que a ajuda possa ser efetiva. Minha suspeita é que esse loop pode ficar um pouco mais elegante e robusto.</div>

<div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
<div>Att,<br></div>
<div> </div><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" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Leonardo Ruoso<br>Journalist, Perl developer and business consultant<br>

Media, UFC/2006; Telecom, IFCE/1998
</div></div>