<div>Não existe uma outra forma de fazê-lo sem utilizar use File::Slurp?<br /> <br /><br /></div>
<hr style="border-top: 1px solid #ccc;" />
<div><br /><strong>De:</strong> blabos@gmail.com<br /><strong>Enviada:</strong> Terça-feira, 8 de Julho de 2014 10:17<br /><strong>Para:</strong> cascavel-pm@pm.org<br /><strong>Assunto:</strong> [Cascavel-pm] Ajuda prioridade if<br /><br /></div>
<div dir="ltr">
<div>Experimenta algo como:</div>
<div> </div>
<div> </div>
#!/usr/bin/env perl
<div> </div>
<div>use strict;</div>
<div>use warnings;</div>
<div> </div>
<div>use File::Slurp;</div>
<div> </div>
<div>my @lines = read_file('filename');</div>
<div> </div>
<div>my %lines;</div>
<div> </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> </div>
<div>foreach my $type ( qw{ CRITICO OK } ) {</div>
<div>  print $_ . $/ foreach @{ $lines{$type} };</div>
<div>}</div>
<div> </div>
<div> </div>
<div>***</div>
<div> </div>
<div>Vê se é algo parecido</div>
<div> </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="../../../undefined//compose?to=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="../../../undefined//compose?to=Cascavel-pm@pm.org" target="_blank">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></blockquote>
</div>
</div>
<div>_______________________________________________<br />Cascavel-pm mailing list<br />Cascavel-pm@pm.org<br /><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></div>