Discussion :

[mirafrance]

svp j' aimerai bien comprendre le code source suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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