3 ms·
Yeah, here's a Perl 6 version: #!/usr/bin/env perl6 sub MAIN(*@filename) { for @filename -> $file { say "$file: { +$file.IO.sl
by colomon 11y ago
Yeah, here's a Perl 6 version:
#!/usr/bin/env perl6
sub MAIN(*@filename) {
for @filename -> $file {
say "$file: { +$file.IO.slurp.words } words";
CATCH { default { say "Unable to count words in $file"; } }
}
}