From eea362da9c8943cd86ee5de341afed0f3fa64435 Mon Sep 17 00:00:00 2001 From: LapVeesh Date: Tue, 1 Oct 2019 21:43:06 +0300 Subject: Solved challenge 1 --- challenge-028/veesh-goldman/perl5/ch-01.pl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 challenge-028/veesh-goldman/perl5/ch-01.pl diff --git a/challenge-028/veesh-goldman/perl5/ch-01.pl b/challenge-028/veesh-goldman/perl5/ch-01.pl new file mode 100755 index 0000000000..792819987d --- /dev/null +++ b/challenge-028/veesh-goldman/perl5/ch-01.pl @@ -0,0 +1,14 @@ +#! /usr/bin/env perl + +use v5.22; + +#activate slurp mode +local $/; +while (<>) { + #print the name of the file we're checking + print "$ARGV - "; + say 'The file content is binary' and next if /[[^:ascii:]]/; + say 'The file content is ascii' +} + + -- cgit