Merge pull request #4299 from Cris-HD/branch-for-challenge-117

Added challenge 117 solution

1 files changed, 77 insertions, 0 deletions

diff --git a/challenge-117/cristian-heredia/perl/ch_1.pl b/challenge-117/cristian-heredia/perl/ch_1.pl
new file mode 100755
index 0000000000..cd52e9bcd1
--- /dev/null
+++ b/challenge-117/cristian-heredia/perl/ch_1.pl
@@ -0,0 +1,77 @@
+=begin
+
+TASK #1 › Missing Row
+Submitted by: Mohammad S Anwar
+You are given text file with rows numbered 1-15 in random order but there is a catch one row in missing in the file.
+
+11, Line Eleven
+1, Line one
+9, Line Nine
+13, Line Thirteen
+2, Line two
+6, Line Six
+8, Line Eight
+10, Line Ten
+7, Line Seven
+4, Line Four
+14, Line Fourteen
+3, Line three
+15, Line Fifteen
+5, Line Five
+Write a script to find the missing row number.
+
+=end
+=cut
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+
+my @values;
+my @allNumbers = (1 .. 15);
+
+my %numinwrd = (
+  1 => 'Line One', 2 => 'Line Two', 3 => 'Line Three', 4 => 'Line Four', 5 => 'Line Five', 
+  6 => 'Line Six', 7 => 'Line Seven', 8 => 'Line Eight', 9 => 'Line Nine', 10 => 'Line Ten',
+  11 => 'Line Eleven', 12 => 'Line Twelve', 13 => 'Line Thirteen', 14 => 'Line Fourteen', 15 => 'Line Fifteen'
+);
+
+
+readFile(checkFile());
+
+sub checkFile{
+    my $number_args = $#ARGV + 1;  
+    if ($number_args != 1) {  
+        print "Please enter the name of the file in the command line.\n";  
+        exit;  
+    } 
+    # if  command line argument received,  
+    return $ARGV[0];  
+}
+
+sub readFile {
+    
+    my $file = shift;
+    open(FILE, $file) or die "Could not read from $file\n";
+    
+    while (<FILE>) {
+        push(@values, split(", "));
+    }
+    for (my $i = 0; $i<@allNumbers;$i++){
+        unless ( grep( /^$allNumbers[$i]$/, @values ) ) {
+            print "The line missing is:\n";
+            print "$allNumbers[$i], $numinwrd{$allNumbers[$i]}\n";
+            next;
+        }    
+    }
+}
+
+
+
+
+
+
+
+
+