From 2bc4898ef2382edbe7db1a879a5b93b9b9271612 Mon Sep 17 00:00:00 2001 From: Ruben Westerberg Date: Sun, 6 Oct 2019 14:25:30 +1000 Subject: Added ch-1.p6 --- challenge-028/ruben-westerberg/perl6/ch-1.p6 | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100755 challenge-028/ruben-westerberg/perl6/ch-1.p6 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 +} -- cgit