Commit solutions for perl weekly challenge 028

2 files changed, 238 insertions, 0 deletions

diff --git a/challenge-028/duane-powell/perl5/ch-1.pl b/challenge-028/duane-powell/perl5/ch-1.pl
new file mode 100755
index 0000000000..bba5f6d7e9
--- /dev/null
+++ b/challenge-028/duane-powell/perl5/ch-1.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use Modern::Perl;
+
+# Write a script to check the file content without explicitly reading the content. 
+# It should accept file name with path as command line argument and print 
+# "The file content is binary." or else "The file content is ascii." accordingly.
+
+my $file = shift;
+if ($file) {
+	if (-e $file) {
+		say "The file $file content is binary" if (-B $file);
+		say "The file $file content is ascii"  if (-T $file);
+	} else {
+		say "The file $file does not exist";
+	}
+} else {
+	say "Usage: $0 filename";
+}
+
+__END__
+
+./ch-1.pl
+Usage: ./ch-1.pl filename
+
+./ch-1.pl filename
+The file filename does not exist
+
+./ch-1.pl ch-2.pl
+The file ch-2.pl content is ascii
+
+./ch-1.pl /tmp/data.tgz
+The file /tmp/data.tgz content is binary
+
diff --git a/challenge-028/duane-powell/perl5/ch-2.pl b/challenge-028/duane-powell/perl5/ch-2.pl
new file mode 100755
index 0000000000..94eda2a2c7
--- /dev/null
+++ b/challenge-028/duane-powell/perl5/ch-2.pl
@@ -0,0 +1,205 @@
+#!/usr/bin/perl
+use Modern::Perl;
+use Term::ANSIColor;
+
+# Write a script to display Digital Clock. Feel free to be as creative as you can when displaying digits. 
+# We expect bare minimum something like 14:10:11
+
+my $color = shift || 'red';
+usage() unless $color =~ m/^(black|red|green|yellow|blue|magenta|cyan|white)$/;
+
+my @ascii_art;
+push @ascii_art, sub {
+"
+ ____ 
+|    |
+|    |
+|    |
+|    |
+|    |
+ ____ 
+"
+};
+push @ascii_art, sub {
+"
+      
+     |
+     |
+     |
+     |
+     |
+     |
+"
+};
+push @ascii_art, sub {
+"
+ ____ 
+     |
+     |
+ ____ 
+|     
+|     
+ ____ 
+"
+};
+push @ascii_art, sub {
+"
+ ____ 
+     |
+     |
+ ____ 
+     |
+     |
+ ____ 
+"
+};
+push @ascii_art, sub {
+"
+      
+|    |
+|    |
+ ____ 
+     |
+     |
+     |
+"
+};
+push @ascii_art, sub {
+"
+ ____ 
+|     
+|     
+ ____ 
+     |
+     |
+ ____ 
+"
+};
+push @ascii_art, sub {
+"
+      
+|     
+|     
+ ____ 
+|    |
+|    |
+ ____ 
+"
+};
+push @ascii_art, sub {
+"
+ ____ 
+     |
+     |
+     |
+     |
+     |
+     |
+"
+};
+push @ascii_art, sub {
+"
+ ____ 
+|    |
+|    |
+ ____ 
+|    |
+|    |
+ ____ 
+"
+};
+
+push @ascii_art, sub {
+"
+ ____ 
+|    |
+|    |
+ ____ 
+     |
+     |
+     |
+"
+};
+
+my $COLON = 10;
+push @ascii_art, sub {
+# @{$ascii_art[$COLON]} returns a colon :
+"
+  
+  
+ o
+  
+  
+ o
+  
+"
+};
+
+print color ($color);
+while (1) {
+	sleep 1;
+	my ($s,$m,$h,undef,undef,undef,undef,undef) = localtime(time);
+	my ($h1, $h2) = split(//,sprintf("%02d", $h));
+	my ($m1, $m2) = split(//,sprintf("%02d", $m)); 
+	my ($s1, $s2) = split(//,sprintf("%02d", $s));
+	my @out;
+	foreach (&{$ascii_art[$h1]},&{$ascii_art[$h2]}, &{$ascii_art[$COLON]}, 
+		 &{$ascii_art[$m1]},&{$ascii_art[$m2]}, &{$ascii_art[$COLON]}, 
+                 &{$ascii_art[$s1]},&{$ascii_art[$s2]}) {
+		push @out, split("\n",$_);
+	}
+	# Each digit in the clock interface is 8 lines of text
+	# 6 digits and 2 colons totals to 64 lines of output, @out, a 1 x 64 array
+	# We need to convert to an 8 x 8 array, @clock, to print horizontally
+	# From this: 1 x 64
+	# 1
+	# 2
+	# :
+	# 0
+	# 1
+	# :
+	# 0
+	# 1
+	# To this: 8 x 8
+	# 12:01:01
+
+	my @clock;
+	foreach (0..63) {
+		$clock[0] .= $out[$_] if ($_ % 8 == 0);
+		$clock[1] .= $out[$_] if ($_ % 8 == 1);
+		$clock[2] .= $out[$_] if ($_ % 8 == 2);
+		$clock[3] .= $out[$_] if ($_ % 8 == 3);
+		$clock[4] .= $out[$_] if ($_ % 8 == 4);
+		$clock[5] .= $out[$_] if ($_ % 8 == 5);
+		$clock[6] .= $out[$_] if ($_ % 8 == 6);
+		$clock[7] .= $out[$_] if ($_ % 8 == 7);
+	}
+
+	system("clear");
+	say $_ foreach (@clock);
+}
+print color('reset');
+exit;
+
+sub usage {
+        print <<EOU;
+$0 black|red|green|yellow|blue|magenta|cyan|white
+Displays ticking digital clock, make a wish at 11:11:11
+EOU
+        exit;
+}
+
+__END__
+
+
+./ch-2.pl white
+
+       ____    ____          ____
+     |     |       ||    |  |     |    |
+     |     | o     ||    | o|     |    |
+     | ____    ____  ____    ____  ____
+     ||            |     |       |     |
+     ||      o     |     | o     |     |
+     | ____    ____      |   ____      |
+
+