- Added Perl solutions to the "Rotate String" task.

2 files changed, 70 insertions, 0 deletions

diff --git a/challenge-063/mohammad-anwar/perl/ch-2.pl b/challenge-063/mohammad-anwar/perl/ch-2.pl
new file mode 100644
index 0000000000..846db32d2a
--- /dev/null
+++ b/challenge-063/mohammad-anwar/perl/ch-2.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $count = rotate($ARGV[0], 1);
+print "Rotation: $count\n";
+
+sub rotate {
+    my ($string, $verbose) = @_;
+
+    die "ERROR: Missing string.\n"
+        unless defined $string;
+    die "ERROR: Invalid string [$string].\n"
+        unless ($string =~ /^[xy]+$/i);
+
+    my $size = length($string);
+    my $temp = $string;
+    my $i = 1;
+    my $c = 1;
+    while ($i <= $size) {
+        my $part_a = substr($temp, 0, $i);
+        my $part_b = substr($temp, $i);
+        $temp = sprintf("%s%s", $part_b, $part_a);
+        print "[$c]: [$temp]\n" if ($verbose);
+        last if ($temp eq $string);
+
+        $i++; $c++;
+        $i = 1 if ($i > $size);
+    }
+
+    return $c;
+}
diff --git a/challenge-063/mohammad-anwar/perl/ch-2a.pl b/challenge-063/mohammad-anwar/perl/ch-2a.pl
new file mode 100644
index 0000000000..d51180d150
--- /dev/null
+++ b/challenge-063/mohammad-anwar/perl/ch-2a.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+is (rotate('xyxx'), 7, 'xyxx');
+is (rotate('xyxy'), 3, 'xyxy');
+
+done_testing;
+
+sub rotate {
+    my ($string, $verbose) = @_;
+
+    die "ERROR: Missing string.\n"
+        unless defined $string;
+    die "ERROR: Invalid string [$string].\n"
+        unless ($string =~ /^[xy]+$/i);
+
+    my $size = length($string);
+    my $temp = $string;
+    my $i = 1;
+    my $c = 1;
+    while ($i <= $size) {
+        my $part_a = substr($temp, 0, $i);
+        my $part_b = substr($temp, $i);
+        $temp = sprintf("%s%s", $part_b, $part_a);
+        print "[$c]: [$temp]\n" if ($verbose);
+        last if ($temp eq $string);
+
+        $i++; $c++;
+        $i = 1 if ($i > $size);
+    }
+
+    return $c;
+}