Merge pull request #787 from jaldhar/challenge-028

Challenge 28 by Jaldhar H. Vyas

5 files changed, 51 insertions, 0 deletions

diff --git a/challenge-028/jaldhar-h-vyas/blog.txt b/challenge-028/jaldhar-h-vyas/blog.txt
new file mode 100644
index 0000000000..f7dcc4dc23
--- /dev/null
+++ b/challenge-028/jaldhar-h-vyas/blog.txt
@@ -0,0 +1 @@
+https://www.braincells.com/perl/2019/10/perl_weekly_challenge_weeks_27-28.html
\ No newline at end of file
diff --git a/challenge-028/jaldhar-h-vyas/perl5/ch-1.sh b/challenge-028/jaldhar-h-vyas/perl5/ch-1.sh
new file mode 100644
index 0000000000..d234e06396
--- /dev/null
+++ b/challenge-028/jaldhar-h-vyas/perl5/ch-1.sh
@@ -0,0 +1 @@
+perl -E 'say "The file content is ", (-B shift) ? "binary." : "text."'
\ No newline at end of file
diff --git a/challenge-028/jaldhar-h-vyas/perl5/ch-2.pl b/challenge-028/jaldhar-h-vyas/perl5/ch-2.pl
new file mode 100755
index 0000000000..73e175f104
--- /dev/null
+++ b/challenge-028/jaldhar-h-vyas/perl5/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use 5.010;
+use English qw/ -no_match_vars /;
+
+$OUTPUT_AUTOFLUSH = 1;
+
+while(1) {
+    print "\b" x 8, sprintf("%02d:%02d:%02d", (localtime)[2,1,0]);
+    select undef, undef, undef, 1;
+}
diff --git a/challenge-028/jaldhar-h-vyas/perl6/ch-1.p6 b/challenge-028/jaldhar-h-vyas/perl6/ch-1.p6
new file mode 100755
index 0000000000..d536c94805
--- /dev/null
+++ b/challenge-028/jaldhar-h-vyas/perl6/ch-1.p6
@@ -0,0 +1,23 @@
+#!/usr/bin/perl6
+
+sub isText(IO::Path $file) {
+    my Buf $firstBlock;
+
+    given $file.open {
+        $firstBlock = .read;
+        .close;
+    }
+
+    try {
+        $firstBlock.decode('utf-8');
+        CATCH {
+            return False;
+        }
+    }
+
+    return True;
+}
+
+sub MAIN( Str $arg) {
+    say 'The file content is ', isText($arg.IO) ?? 'text.' !! 'binary.';
+}
\ No newline at end of file
diff --git a/challenge-028/jaldhar-h-vyas/perl6/ch-2.p6 b/challenge-028/jaldhar-h-vyas/perl6/ch-2.p6
new file mode 100755
index 0000000000..c1daf27b2c
--- /dev/null
+++ b/challenge-028/jaldhar-h-vyas/perl6/ch-2.p6
@@ -0,0 +1,14 @@
+#!/usr/bin/perl6
+
+sub tick() {
+    my $now = DateTime.now;
+    print "\b" x 8,
+        sprintf("%02d:%02d:%02d", $now.hour, $now.minute , $now.second);
+}
+
+my $supply = Supply.interval(1);
+
+$supply.tap( -> $v { tick; } );
+
+tick();
+sleep;
\ No newline at end of file