explication de code source

svp j' aimerai bien comprendre le code source suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
while( defined( $line = <FILE> ) )
{
  @words = split( /\W+/, $line );
    foreach $word (@words) {
      $word =~ tr/A-Z/a-z/;
	 print RESU "$word \n";
	  $total{
	  $word
	         } ++;
			 	} }
foreach $word (sort keys %total)
{
   print "$word a été rencontré $total{$word} fois.\n";
   print RESU "$word \n";
}

qui peut m'expliquer ce code ligne par ligne le plus vite possible
merci d'avance

Je me suis permis de le remettre en forme pour qu'il soit plus lisible.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
while( defined( $line = <FILE> ) ) { # Tant que l'on peut lire une ligne et la stocker dans $line
  @words = split( /\W+/, $line ); # Découper la ligne selon les caractères non alphanumérique ou '_'
  foreach $word (@words) { # Pour chaque mot dans @words
    $word =~ tr/A-Z/a-z/; # Mettre $word en minuscule
    print RESU "$word \n";
    $total {$word} ++; # Remplir un hash %total avec comme clé le mot et comme valeur son nombre d'occurrences
  } 
}
 
# Affichage
foreach $word (sort keys %total) {
  print "$word a été rencontré $total{$word} fois.\n";
  print RESU "$word \n";
}

merci:ccool: