bonjour !

j'aimerai faire un programme qui lit un fichier. log et détermine le nombre de fois que des utilisateurs ont réussi a se connecter et aussi le nombre de fois que ces utilisateurs on été refusés.

par exemple a la fin je dois avoir

titi s'est connecté 2 fois

titi a été refusé 1 fois

gogo s'est connecté 5 fois

gogo a été refusé 3 fois

use strict;
use warnings;
use feature qw( say);
my %h;
while( my $l = <F> ) { # parcourir le fichier
  chomp $l;
  ++$h{$l} # autoverification
}
 
while ( my ( $k, $v ) = each  %h ) {
  my @l = split ",", $k;
  say $l[1]," s'est connecté ", $v, " fois au serveur ", $l[2];

 say $2[1]," a été refusé ", $v, " fois au serveur ", $l[2]

}