diff options
| author | Ruben Westerberg <drclaw@mac.com> | 2019-10-06 14:25:30 +1000 |
|---|---|---|
| committer | Ruben Westerberg <drclaw@mac.com> | 2019-10-06 14:25:30 +1000 |
| commit | 2bc4898ef2382edbe7db1a879a5b93b9b9271612 (patch) | |
| tree | 39f435d86b1e670c14cf67f70d40d282f67c1610 | |
| parent | 87fb34a6e91686a017033aae0276891e846fb14d (diff) | |
| download | perlweeklychallenge-club-2bc4898ef2382edbe7db1a879a5b93b9b9271612.tar.gz perlweeklychallenge-club-2bc4898ef2382edbe7db1a879a5b93b9b9271612.tar.bz2 perlweeklychallenge-club-2bc4898ef2382edbe7db1a879a5b93b9b9271612.zip | |
Added ch-1.p6
| -rwxr-xr-x | challenge-028/ruben-westerberg/perl6/ch-1.p6 | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-028/ruben-westerberg/perl6/ch-1.p6 b/challenge-028/ruben-westerberg/perl6/ch-1.p6 new file mode 100755 index 0000000000..483d39f282 --- /dev/null +++ b/challenge-028/ruben-westerberg/perl6/ch-1.p6 @@ -0,0 +1,27 @@ +#!/usr/bin/env perl6 +my %ext; +data.lines.map({ + my @f=.split(/\s|\,/,:skip-empty); + my $type= /^text\// ?? "text" !! "binary" given @f.shift; + %ext{$_}=$type for @f; +}); + +@*ARGS.map({ + my $type=%ext{.IO.extension}; + $type="binary" if !$type; + put "$_: The file content is $type"; +}); + +#emulate perl5 DATA section... sort of.. +sub data() { + q:to/END/ + text/html html htm shtml + text/css css + text/xml xml + text/mathml mml + text/plain txt + text/vnd.sun.j2me.app-descriptor jad + text/vnd.wap.wml wml + text/x-component htc + END +} |