Anonymous user
Word frequency: Difference between revisions
If Perl can't open the input file, report filename and reason.
m (Modify C++ alternative to use a named constant to specify how many words to list.) |
(If Perl can't open the input file, report filename and reason.) |
||
Line 2,982:
open $fh, "<", '135-0.txt';
($text = join '', <$fh>) =~ tr/A-Z/a-z/
or die "Can't open '135-0.txt': $!\n";
@matcher = (
| |||