<div dir="ltr">> Não existe uma outra forma de fazê-lo sem utilizar use File::Slurp?<div><br></div><div>Tem umas 432 formas de fazer sem o File::Slurp.</div><div><br></div><div>Ele só serve pra ler as linhas do arquivo. Você prefere fazer isso com manualmente?</div>


<div><br></div><div>[]'s<br><div class="gmail_extra"><br><br><div class="gmail_quote">2014-07-09 14:23 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:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div>Não existe uma outra forma de fazê-lo sem utilizar use File::Slurp?<br>


 <br><br></div>
<hr style="border-top-width:1px;border-top-style:solid;border-top-color:rgb(204,204,204)">
<div><br><strong>De:</strong> <a href="mailto:blabos@gmail.com" target="_blank">blabos@gmail.com</a><br><strong>Enviada:</strong> Terça-feira, 8 de Julho de 2014 10:17<br><strong>Para:</strong> <a href="mailto:cascavel-pm@pm.org" target="_blank">cascavel-pm@pm.org</a><br>


<strong>Assunto:</strong> [Cascavel-pm] Ajuda prioridade if<br><br></div><div><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="http://../../../undefined/compose?to=leoberbert@uol.com.br" target="_blank">leoberbert@uol.com.br</a>></span>:<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>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="http://../../../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><a href="mailto: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></div>


</div></div><br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto: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><br></blockquote></div><br></div></div></div>