Salve a tutti.

Sto cercando di capire uno script di Perl che costruisce un indice analitico di un testo; se per favore qualcuno mi può aiutare trascrivendomi il pseudo-codice. Grazie

my $page_number = 1;
my %idx;

while(<>) {
for my $word ( split(/\s+/) ) {
$idx{$word}{$page_number} = 1;
}
$page_number++ if ( /\014/ );
}

foreach my $word (sort keys %idx) {
printf "%-20s ", $word;
print comma_sep(sort {$a <=> $b} keys %{$idx{$word}});
print "\n";
}

sub comma_sep {
my $ret = "";
foreach (@_) { $ret .= $_ . ", "; }
chop $ret;
chop $ret;
return $ret;
}
Grazie a chiunque mi può aiutare.