зеркало из https://github.com/github/ruby.git
10 строки
118 B
Perl
10 строки
118 B
Perl
|
while (<>) {
|
||
|
|
for (split(/\W+/)) {
|
||
|
|
$freq{$_}++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for (sort keys %freq) {
|
||
|
|
print "$_ -- $freq{$_}\n";
|
||
|
|
}
|