From a60e120f664b6bcce12306523ec9ead80a80c18a Mon Sep 17 00:00:00 2001 From: "Kian-Meng, Ang" Date: Mon, 9 Sep 2019 00:45:52 +0800 Subject: Add task 01 --- challenge-024/kian-meng-ang/perl5/ch-1.pl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 challenge-024/kian-meng-ang/perl5/ch-1.pl diff --git a/challenge-024/kian-meng-ang/perl5/ch-1.pl b/challenge-024/kian-meng-ang/perl5/ch-1.pl new file mode 100644 index 0000000000..764b3705ef --- /dev/null +++ b/challenge-024/kian-meng-ang/perl5/ch-1.pl @@ -0,0 +1,23 @@ +#!/usr/bin/perl +use B; + +__END__ +Create a smallest script in terms of size that on execution doesn’t throw any +error. The script doesn’t have to do anything special. You could even come up +with smallest one-liner. + +# `perl` interpreter run the script just fine without error. +$ perl ch-1.pl; echo $? +0 + +# `perlcritic` do not raise error on missing warnings. +$ perlcritic ch-1.pl +ch-1.pl source OK + +# `file` identifies it as Perl script. +$ file ch-1.pl +ch-1.pl: Perl script text executable + +# script length. +$ head -n 2 ch-1.pl | wc -c +23 -- cgit