- or download this
$ wc words.english
116246 116246 989075 words.english
...
0.86 user
0.02 system
0:00.88 elapsed
- or download this
push @{$Word{length$_}},$_ while (<>);
# ...
print OUT @{$Word{$_}};
- or download this
$Word{length$_} .= $_ while (<>);
# ...
print OUT $Word{$_};
- or download this
#!/usr/bin/perl -w
use strict;
...
print OUT $words[$_];
close OUT;
};