diff options
| -rw-r--r-- | challenge-028/steven-wilson/perl5/ch-1.pl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-028/steven-wilson/perl5/ch-1.pl b/challenge-028/steven-wilson/perl5/ch-1.pl new file mode 100644 index 0000000000..133a81a4ce --- /dev/null +++ b/challenge-028/steven-wilson/perl5/ch-1.pl @@ -0,0 +1,23 @@ +#!/usr/bin/env perl +# Author: Steven Wilson +# Date: 2019-10-01 +# Week: 028 + +# Task #1 +# 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. + + +use strict; +use warnings; +use feature qw/ say /; +use File::Type; + + +my $filename = $ARGV[0]; +my $ft = File::Type->new(); +my $type = $ft->mime_type($filename); + +say "The file contents is $type"; |