Merge pull request #698 from davorg/master

Challenge 28 - Dave Cross

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-028/dave-cross/perl5/ch-1.pl b/challenge-028/dave-cross/perl5/ch-1.pl
new file mode 100644
index 0000000000..5ae77b6180
--- /dev/null
+++ b/challenge-028/dave-cross/perl5/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+use File::Basename;
+
+@ARGV or die 'Usage: ', basename($0), " [list of filenames]\n";
+
+for (@ARGV) {
+  if (-T) {
+    say "$_ looks like a text file";
+  } elsif (-B) {
+    say "$_ looks like a binary file";
+  } else {
+    say "$_ looks a bit weird";
+  }
+}
diff --git a/challenge-028/dave-cross/perl5/ch-2.pl b/challenge-028/dave-cross/perl5/ch-2.pl
new file mode 100644
index 0000000000..f9b2c5789e
--- /dev/null
+++ b/challenge-028/dave-cross/perl5/ch-2.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Time::Piece;
+
+STDOUT->autoflush(1);
+
+while (1) {
+  print localtime->strftime('%H:%M:%S');
+  sleep 1;
+  print "\b\b\b\b\b\b\b\b";
+}