diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-11-15 06:31:00 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-11-15 06:31:00 +0800 |
| commit | 4f3b607b4fabd7693f8ee8d9c2291cdddd614b25 (patch) | |
| tree | a60ba10532b3a3ab29b304c639e68404fa2b1626 /challenge-002 | |
| parent | a3c164970c4e43cc71b5fe8bd1c4a3fb02a35709 (diff) | |
| parent | f0cf4c2649ad878ce73142862f83e08dead5cc86 (diff) | |
| download | perlweeklychallenge-club-4f3b607b4fabd7693f8ee8d9c2291cdddd614b25.tar.gz perlweeklychallenge-club-4f3b607b4fabd7693f8ee8d9c2291cdddd614b25.tar.bz2 perlweeklychallenge-club-4f3b607b4fabd7693f8ee8d9c2291cdddd614b25.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-002')
| -rw-r--r-- | challenge-002/paulo-custodio/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-002/paulo-custodio/perl/ch-2.pl | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/challenge-002/paulo-custodio/perl/ch-1.pl b/challenge-002/paulo-custodio/perl/ch-1.pl index bb82c75446..8bafbe57a7 100644 --- a/challenge-002/paulo-custodio/perl/ch-1.pl +++ b/challenge-002/paulo-custodio/perl/ch-1.pl @@ -5,9 +5,7 @@ # Challenge #1 # Write a script or one-liner to remove leading zeros from positive numbers. -use strict; -use warnings; -use 5.030; +use Modern::Perl; my($N) = @ARGV; $N =~ s/^0+(\d)/$1/; diff --git a/challenge-002/paulo-custodio/perl/ch-2.pl b/challenge-002/paulo-custodio/perl/ch-2.pl index 487857b096..bad58bb556 100644 --- a/challenge-002/paulo-custodio/perl/ch-2.pl +++ b/challenge-002/paulo-custodio/perl/ch-2.pl @@ -7,9 +7,7 @@ # representation, using the characters 0-9 and A-Y. Dave Jacoby came up # with nice description about base35, in case you needed some background. -use strict; -use warnings; -use 5.030; +use Modern::Perl; use constant { BASE => 35 }; my @digits = ('0'..'9','A'..'Z'); |