[Cascavel-pm] Duvida

Renato Santos renato.cron em gmail.com
Sexta Agosto 1 10:21:42 PDT 2014


Se RAM for um problema e o arquivo já estiver em ordem, da pra guardar a
última linha e se ela for diferente da atual, você printar. Só n pode
esquecer de fazer isso quando sair do loop também, pois pode existir uma
linha sobrando no last.
On Aug 1, 2014 2:08 PM, "Leonardo Ruoso" <leonardo em ruoso.com> wrote:

> Em 1 de agosto de 2014 12:43, Leonardo Berbert Gomes <
> leoberbert em uol.com.br> escreveu:
>
>> Amigos,
>>
>> Tenho uma pequena duvida. Tenho o seguinte bloco de codigo abaixo:
>>
>>  while ($final = <FILE>) {
>>         chomp $final;
>>         if ($final =~/Min|SDFCrtInvoice/) {next}
>>         if ($final =~ /Avg\|.*/){
>>         $final =~s/   /;/g;
>>         $final =~s/; /;/g;
>>         $final =~s/  /;/g;
>>         $final =~s/ \|;/;/g;
>>         $final =~s/; /;/g;
>>         $final =~s/\|;/;/g;
>>         $final =~s/^ //g;
>>         $final =~s/ /;/g;
>>         my @fields = split /;/, $final;
>>         my ($process, $resp_time) = @fields[0, 4];
>>         print "$process -> $resp_time\n";
>>         }
>> }
>>
>> Este codigo tra o resultado abaixo:
>>
>>  PROC1 -> 5.70s
>> PROC1 -> 7.93s
>> PROC1 -> 5.56s
>>  PROC2-> 85.6
>>  PROC2 -> 83.1
>> PROC2 -> 87.1
>>
>> Preciso exibir apenas a ultinha de cada processo da coluna 1. que no caso
>> seria:
>>
>> PROC1 -> 5.56s
>> PROC2 -> 87.1
>>
>> Alguém consegue me ajudar?
>>
>
> 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__ [
> http://perldoc.perl.org/perldata.html#Special-Literals] do arquivo para
> que a ajuda possa ser efetiva. Minha suspeita é que esse loop pode ficar um
> pouco mais elegante e robusto.
>
>
>
>> Att,
>>
>>
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>>
>
>
>
> --
> Leonardo Ruoso
> Journalist, Perl developer and business consultant
> Media, UFC/2006; Telecom, IFCE/1998
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20140801/ac16d0f9/attachment-0001.html>


Mais detalhes sobre a lista de discussão Cascavel-pm