diff options
| author | saiftynet <saiftynet@gmail.com> | 2020-02-22 10:02:59 +0000 |
|---|---|---|
| committer | saiftynet <saiftynet@gmail.com> | 2020-02-22 10:02:59 +0000 |
| commit | e92eaead201ae0aa3ea03a50b0a0930bab0cada4 (patch) | |
| tree | a8c77a6686807a55a5658074e29d5f6ea5e203ec | |
| parent | de551f99333ef8fee0533bcc1dfe2efaf7be482e (diff) | |
| download | perlweeklychallenge-club-e92eaead201ae0aa3ea03a50b0a0930bab0cada4.tar.gz perlweeklychallenge-club-e92eaead201ae0aa3ea03a50b0a0930bab0cada4.tar.bz2 perlweeklychallenge-club-e92eaead201ae0aa3ea03a50b0a0930bab0cada4.zip | |
Challenge-048 solutions by saiftynet submitted using EZPWC
| -rw-r--r-- | challenge-048/saiftynet/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-048/saiftynet/perl/ch-2.pl b/challenge-048/saiftynet/perl/ch-2.pl index edbd65602b..9fb4c5cc4c 100644 --- a/challenge-048/saiftynet/perl/ch-2.pl +++ b/challenge-048/saiftynet/perl/ch-2.pl @@ -28,8 +28,8 @@ my $format = $ARGV[0] // "MDY"; # valid strings "MDY", "DMY" and "YMD". die 'Invalid string, must be "MDY", "DMY" or "YMD"' if $format !~/^MDY|DMY|YMD\b/; foreach my $yyyy (2000..2999){ - my $mm = substr($yyyy,3,1).substr($yyyy,2,1); - my $dd = substr($yyyy,1,1).substr($yyyy,0,1); + my $mm = reverse substr($yyyy,2,2); + my $dd = reverse substr($yyyy,0,2); ($mm,$dd)=($dd,$mm) if $format eq "DMY"; # Swap if DDMMYYY required |