<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>
<div> </div>
<div>Att,</div>
<div> </div>