#!/usr/bin/perl
 
=comment
 
  tp1.1.a.pl
  Débroussailler des log d'un serveur de mails
  Version filtre
 
  syntaxe Perl: man perlsyn
 
=cut
 
use Data::Dumper ;                   # cf man Data::Dumper
use strict ;
 
my %h ;                                           # 1 hash
 
while(<>)
{
  my ($id,$rest) = /([0-9A-F]{10}):(.*)/ ;
  push(@{$h{$id}},$rest) if $id ;        # cf man perlfunc
}
 
print Dumper \%h ;                        # cf man perlref

#!/usr/bin/perl
use Data::Dumper ;                   # cf man Data::Dumper
use strict ;
 
my %h ;                                           # 1 hash
 
while(<>)
{
  my ($id,$rest) = /([0-9A-F]{10}):(.*)/ ;
  push(@{$h{$id}},$rest) if $id ;        # cf man perlfunc
}
 
print Dumper \%h ;