3 ms·
Ooo, I can do that in Perl 6 too. #!/usr/bin/env perl6 sub MAIN(*@filename) { for @filename -> $file { my $bag = $file.IO.slurp.wo
by colomon 11y ago
Ooo, I can do that in Perl 6 too.
#!/usr/bin/env perl6
sub MAIN(*@filename) {
for @filename -> $file {
my $bag = $file.IO.slurp.words.Bag;
say "$file: { [+] $bag.values } words";
CATCH { default { say "Unable to count words in $file"; } }
}
}