<div dir="ltr"><div>Experimenta algo como:</div><div><br></div><div><br></div>#!/usr/bin/env perl<div><br></div><div>use strict;</div><div>use warnings;</div><div><br></div><div>use File::Slurp;</div><div><br></div><div>my @lines = read_file('filename');</div>

<div><br></div><div>my %lines;</div><div><br></div><div>foreach my $line ( @lines ) {</div><div>  if ( $line =~ m/(CRITICO|OK)/ ) {</div><div>    push @{ $lines{ $1 } }, $line;</div><div>  }</div><div>  else {</div><div>
    warn 'Linha sem CRITICO ou OK';</div>
<div>  }</div><div>}</div><div><br></div><div>foreach my $type ( qw{ CRITICO OK } ) {</div><div>  print $_ . $/ foreach @{ $lines{$type} };</div><div>}</div><div><br></div><div><br></div><div>***</div><div><br></div><div>

Vê se é algo parecido</div><div><br></div><div>[]'s</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-07-08 10:01 GMT-03:00 Leonardo Berbert Gomes <span dir="ltr"><<a href="mailto:leoberbert@uol.com.br" target="_blank">leoberbert@uol.com.br</a>></span>:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>Amigos,</div>
<div> </div>
<div>Eu preciso da ajuda de vocês para tirar uma pequena dúvida:</div>
<div> </div>
<div>Eu tenho um arquivo que possui a ocorrência de duas strings.</div>
<div> </div>
<div>OK - Arquivos sendo incrementados normalmente</div>
<div>CRITICO - Arquivos não estão sendo incrementados.</div>
<div> </div>
<div>Como estou usando verificando muitos arquivos ao mesmo tempo, existem a ocorrência tanto de OK quanto de crítico.</div>
<div> </div>
<div>Agora que vem a dúvida:</div>
<div> </div>
<div>* Eu preciso que a ocorrência da string CRITICO, tenha preferência sobre o OK, tipo se eu tiver a ocorrência da string CRITICO, ele exiba as linhas com a ocorrência de critico e não exiba as linhas OK.</div>
<div>* Caso não encontre a ocorrência da string CRITICO, ele exiba a ocorrência da string OK.</div>
<div> </div>
<div>Alguem tem alguma sugestão?</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></div>