Task1 Chal 097 Perl LK

1 files changed, 50 insertions, 0 deletions

diff --git a/challenge-097/lubos-kolouch/perl/ch-1.pl b/challenge-097/lubos-kolouch/perl/ch-1.pl
new file mode 100644
index 0000000000..db63827bc7
--- /dev/null
+++ b/challenge-097/lubos-kolouch/perl/ch-1.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-1.pl
+#
+#        USAGE: ./ch-1.pl  
+#
+#  DESCRIPTION: Perl Weekly Challenge 097
+#               Task 1
+#               Caesar Cipher
+#
+#       AUTHOR: Lubos Kolouch
+#      CREATED: 01/30/2021 10:11:26 AM
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+
+sub caesar_cipher {
+    my $what = shift;
+
+    my $inp = $what->[0];
+    my $shift = $what->[1];
+
+    my $result = '';
+
+    for (split '', $inp) {
+        
+        if (((ord($_) < ord('A')) or (ord($_) > ord('Z')))) {
+                    $result .= $_;
+                    next;
+        }
+
+        my $translated = ord($_) - $shift;
+
+        $translated = ord('Z') - ord('A') + $translated + 1 if $translated < ord('A');
+
+        $result .= chr($translated);
+    }
+
+    return $result;
+}
+
+use Test::More;
+
+is(caesar_cipher(['THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG',3]),'QEB NRFZH YOLTK CLU GRJMP LSBO QEB IXWV ALD');
+is(caesar_cipher(['ABCDEFGHIJKLMNOPQRSTUVWXYZ', 3]), 'XYZABCDEFGHIJKLMNOPQRSTUVW');
+
+done_testing;