File "compte.pl"

Full Path: /home/analogde/www/Tableau/andre/PERL/compte.pl
File size: 331 bytes
MIME-type: text/x-perl
Charset: 8 bit

#!/usr/bin/perl
$/ = ""; #unit de travail le paragraphe
$* = 1; #plusieurs lignes  la fois
while (<>){
s/-\n//g; #enlever les tirets
tr/A-Z/a-z/; #minusculiser
@words = split (/\W*\s+\W*/,$_);
foreach $word (@words) {
$wordcount{$word}++;
}
}
foreach $word (sort keys (%wordcount)) {
printf "%20s,%d\n",$word,$wordcount{$word};
}