[Cascavel-pm] Ajuda prioridade if

[Blabos de Blebe]

Experimenta algo como:


#!/usr/bin/env perl

use strict;
use warnings;

use File::Slurp;

my @lines = read_file('filename');

my %lines;

foreach my $line ( @lines ) {
  if ( $line =~ m/(CRITICO|OK)/ ) {
    push @{ $lines{ $1 } }, $line;
  }
  else {
    warn 'Linha sem CRITICO ou OK';
  }
}

foreach my $type ( qw{ CRITICO OK } ) {
  print $_ . $/ foreach @{ $lines{$type} };
}


***

Vê se é algo parecido

[]'s


2014-07-08 10:01 GMT-03:00 Leonardo Berbert Gomes <leoberbert em uol.com.br>:

> Amigos,
>
> Eu preciso da ajuda de vocês para tirar uma pequena dúvida:
>
> Eu tenho um arquivo que possui a ocorrência de duas strings.
>
> OK - Arquivos sendo incrementados normalmente
> CRITICO - Arquivos não estão sendo incrementados.
>
> Como estou usando verificando muitos arquivos ao mesmo tempo, existem a
> ocorrência tanto de OK quanto de crítico.
>
> Agora que vem a dúvida:
>
> * 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.
> * Caso não encontre a ocorrência da string CRITICO, ele exiba a ocorrência
> da string OK.
>
> Alguem tem alguma sugestão?
>
> _______________________________________________
> 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/20140708/dba0a9ed/attachment.html>