[Perl] Cherc des patterns dans +ieurs fichier

print "$msg_id[0]";

print "$msg_id[0]\n";

@ascii =  unpack("C*", $msg_id[0]);
print "@ascii\n";

#!/usr/bin/perl

# donc dans le script tu mets juste la partie où
# tu obtient 
#@msg_id contient une liste de messages, séparés par un saut de ligne 


print "$msg_id[0]";
print "$msg_id[0]\n";
@ascii =  unpack("C*", $msg_id[0]);
print "@ascii\n";

__END__

while (<INFILE>){
  s/\r//;
  chomp;
# je suppose que la ligne commence avec <MSG>
# qu'après <MSG> il y a toujours des chiffres
# et ensuite une virgule
# et que tu as toujours MON_MESSAGE_QUELQUECHOSE
# si jamais au lieu de MON_MESSAGE_1
# tu as n'importe quoi ça ne va pas marcher
  next unless /^\<msg\>\d+\,(\w+)/i;
  push @msg_id, $1;
}

my %h;

foreach my $file(@files){
  open F_LIRE,$file or warn "E/S : $!\n";
    while(<F_LIRE>){
      foreach my $message (@msg_id){
        $h{$message} = $file if /$message/;
      }
    }
  close F_LIRE;
}

print "$_ ---> $h{$_}\n" foreach (sort keys %h);

my %h;

foreach my $file(@files){
  open F_LIRE,$file or warn "E/S : $!\n";
    while(<F_LIRE>){
      foreach my $message (@msg_id){
        push @$h{$message},$file if /$message/;
      }
    }
  close F_LIRE;
}

print "$_ @$h{$_}\n" foreach (sort keys %h);

my %h;

foreach my $file(@files){
  open F_LIRE,$file or warn "E/S : $!\n";
    while(<F_LIRE>){
      foreach my $message (@msg_id){
        push @{$h{$message}},$file if /$message/;
      }
    }
  close F_LIRE;
}

print "$_ @$h{$_}\n" foreach (sort keys %h);

MON_MESSAGE_1 file1.c
MON_MESSAGE_1 file78.c 
MON_MESSAGE_2 file1.c
MON_MESSAGE_2 file963.c
MON_MESSAGE_2 file78456.c

MON_MESSAGE_1 file1.c file78.c 
MON_MESSAGE_2 file1.c file963.c file78456.c