Description :
Exemple de script pour calculé l'indice de densité de mots-clés dans un document (html,txt ...)
Portion de code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!/usr/bin/perl
use strict;
my %count = ();
while (read(STDIN, $_, 4095) and $_ .= <STDIN>) {
tr/A-Za-z/ /cs;
++$count{$_} foreach split(' ', lc $_);
}
my @lines = ();
my ($w, $c);
push(@lines, sprintf("%7d\t%s\n", $c, $w)) while (($w, $c) = each(%count));
print sort { $b cmp $a } @lines;
|
|
Informations rapides
