Merge pull request #6846 from jaldhar/challenge-185

Challenge 185 by Jaldhar H. Vyas.

5 files changed, 26 insertions, 0 deletions

diff --git a/challenge-185/jaldhar-h-vyas/blog.txt b/challenge-185/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..5cc0de904f
--- /dev/null
+++ b/challenge-185/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2022/10/perl_weekly_challenge_week_185.html
\ No newline at end of file
diff --git a/challenge-185/jaldhar-h-vyas/perl/ch-1.sh b/challenge-185/jaldhar-h-vyas/perl/ch-1.sh
new file mode 100755
index 0000000000..b076aec653
--- /dev/null
+++ b/challenge-185/jaldhar-h-vyas/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -E 'shift=~/(..)(..)\.(..)(..)\.(..)(..)/; say join q{:}, @{^CAPTURE};' $@
\ No newline at end of file
diff --git a/challenge-185/jaldhar-h-vyas/perl/ch-2.pl b/challenge-185/jaldhar-h-vyas/perl/ch-2.pl
new file mode 100755
index 0000000000..b666257b05
--- /dev/null
+++ b/challenge-185/jaldhar-h-vyas/perl/ch-2.pl
@@ -0,0 +1,16 @@
+#!/bin/perl
+use 5.030;
+use warnings;
+
+sub transform {
+    my $transformed = shift;
+
+    for (1 .. 4) {
+        $transformed =~ s/[a-z0-9]/\0/;
+    }
+    $transformed =~ s/\0/x/g;
+
+    return "'$transformed'";
+}
+
+say q{(} . (join q{, }, map transform($_), @ARGV) . q{)};
diff --git a/challenge-185/jaldhar-h-vyas/raku/ch-1.sh b/challenge-185/jaldhar-h-vyas/raku/ch-1.sh
new file mode 100755
index 0000000000..fdf459a6b6
--- /dev/null
+++ b/challenge-185/jaldhar-h-vyas/raku/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS[0]~~/(..)(..)\.(..)(..)\.(..)(..)/; @$/.join(q{:}).say' $@
\ No newline at end of file
diff --git a/challenge-185/jaldhar-h-vyas/raku/ch-2.sh b/challenge-185/jaldhar-h-vyas/raku/ch-2.sh
new file mode 100755
index 0000000000..0d0ecb83f0
--- /dev/null
+++ b/challenge-185/jaldhar-h-vyas/raku/ch-2.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+raku -e '@*ARGS.map({ $_.subst(/<[a..z0..9]>/, "x", :nth(1..4)); }).say;' $@
\ No newline at end of file