Merge pull request #6834 from davorg/master

Challenge #185

2 files changed, 34 insertions, 0 deletions

diff --git a/challenge-185/dave-cross/perl/ch-1.pl b/challenge-185/dave-cross/perl/ch-1.pl
new file mode 100644
index 0000000000..ce3b004799
--- /dev/null
+++ b/challenge-185/dave-cross/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+my $in = shift;
+
+my $hex_re = qr/[a-f0-9]/i;
+
+die "$in is not a valid MAC address\n"
+  unless $in =~ /^$hex_re{4}\.$hex_re{4}\.$hex_re{4}$/;
+
+say join ':', $in =~ /($hex_re{2})/g;
diff --git a/challenge-185/dave-cross/perl/ch-2.pl b/challenge-185/dave-cross/perl/ch-2.pl
new file mode 100644
index 0000000000..f2aab1003b
--- /dev/null
+++ b/challenge-185/dave-cross/perl/ch-2.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+for my $in (@ARGV) {
+  my $x = 0;
+
+  for (0 .. length($in) - 1) {
+    if (substr($in, $_, 1) =~ /[a-z0-9]/) {
+      substr $in, $_, 1, 'x';
+      ++$x;
+    }
+
+    last if $x == 4;
+  }
+
+  say $in;
+}