1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
use strict;
open(FILE,"<$filename>") or die "open: $!";
my($line,@words,$word,%total);
while( defined( $line = <FILE>) )
{
@words = split( /\W+/, $line);
foreach $word (@words)
{
$mot =~ tr/A-Z/a-z/;
$total{$word}++;
}
}
close(FILE);
foreach $word (sort keys %total)
{
print "$word a été rencontré $total{$word} fois.\n";
}
|
Informations rapides
