diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-01 19:46:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-01 19:46:33 +0100 |
| commit | e999d9460c076db7d315a084196f4afae469d7c2 (patch) | |
| tree | 046143d2ba68b83ddce8354eb83911ecd18c442b | |
| parent | 40fdf54d7977cbbb0d205429fe995e2fef901e11 (diff) | |
| parent | eea362da9c8943cd86ee5de341afed0f3fa64435 (diff) | |
| download | perlweeklychallenge-club-e999d9460c076db7d315a084196f4afae469d7c2.tar.gz perlweeklychallenge-club-e999d9460c076db7d315a084196f4afae469d7c2.tar.bz2 perlweeklychallenge-club-e999d9460c076db7d315a084196f4afae469d7c2.zip | |
Merge pull request #702 from rabbiveesh/master
Solved challenge 1
| -rwxr-xr-x | challenge-028/veesh-goldman/perl5/ch-01.pl | 14 |
1 files changed, 14 insertions, 0 deletions
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' +} + + |