First commit, file ch-1.pl

2 files changed, 47 insertions, 21 deletions

diff --git a/challenge-027/arne-sommer/perl6/history-variable b/challenge-027/arne-sommer/perl6/history-variable
deleted file mode 100755
index 7a2ff571f5..0000000000
--- a/challenge-027/arne-sommer/perl6/history-variable
+++ /dev/null
@@ -1,21 +0,0 @@
-#! /usr/bin/env perl6
-
-use lib "lib";
-
-use HistoryVariable;
-
-my $x = HistoryVariable.new;
-say $x;
-
-$x.set(10);
-say $x;
-
-$x.set(20);
-say $x;
-
-$x.set(5);
-say $x.get;
-
-say $x.get;
-say $x.history;
-say $x.history('time');
diff --git a/challenge-028/lubos-kolouch/perl5/ch-1.pl b/challenge-028/lubos-kolouch/perl5/ch-1.pl
new file mode 100644
index 0000000000..e1982c24a4
--- /dev/null
+++ b/challenge-028/lubos-kolouch/perl5/ch-1.pl
@@ -0,0 +1,47 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-1.pl
+#
+#        USAGE: ./ch-1.pl  
+#
+#  DESCRIPTION: https://perlweeklychallenge.org/blog/perl-weekly-challenge-028/
+#
+#  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.
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Lubos Kolouch 
+# ORGANIZATION: 
+#      VERSION: 1.0
+#      CREATED: 09/30/2019 01:20:02 PM
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+
+sub get_file_status {
+    my $file = shift;
+
+    return "The file does not exist." unless -e $file;
+
+    return "The file is not readable." unless -r $file;
+
+    return "The file is empty." if -z $file;
+
+    return "The file is not regular." unless -f $file;
+
+    return "The file content is ascii." if -T $file;
+
+    return "The file content is binary.";
+}
+
+my $file = shift || die 'Usage: ch-1.pl filename';
+
+say get_file_status($file);
+
+