0 Пользователей и 1 Гость просматривают эту тему.
open(F, "words.txt") or die;$/ = undef;my $words = ;my %seen;foreach (split(/[^\\w-]+/, $words)) { next unless /\\w/i; $seen{lc($_)}++;}foreach (sort keys %seen) { print "$_ - $seen{$_}\\n";}
use Text::ExtractWords qw(words_count words_list); my %hash = (); words_count(\\%hash, "test test the words_count function");