diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-11-14 23:42:46 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-11-14 23:42:46 +0000 |
| commit | 8331f7b2197029c7d39cbe436934390fbc09ea4e (patch) | |
| tree | 380e2e44287cff22b63b0a113edd9f0e825d5dc2 | |
| parent | 906552b855497e2a40615fa423b67999422aed1b (diff) | |
| parent | d1c0a157bb00772ba05233b72dbeb192268ebf2d (diff) | |
| download | perlweeklychallenge-club-8331f7b2197029c7d39cbe436934390fbc09ea4e.tar.gz perlweeklychallenge-club-8331f7b2197029c7d39cbe436934390fbc09ea4e.tar.bz2 perlweeklychallenge-club-8331f7b2197029c7d39cbe436934390fbc09ea4e.zip | |
Merge pull request #13028 from robbie-hatley/rh347
Fixed bug in 347-1
| -rwxr-xr-x | challenge-347/robbie-hatley/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-347/robbie-hatley/perl/ch-1.pl b/challenge-347/robbie-hatley/perl/ch-1.pl index 72436abca0..bc47db87b7 100755 --- a/challenge-347/robbie-hatley/perl/ch-1.pl +++ b/challenge-347/robbie-hatley/perl/ch-1.pl @@ -63,7 +63,7 @@ Output is to STDOUT and will be each input followed by the corresponding output. sub format_date ( $s ) { my ($d1, $m1, $y) = split /\s+/, $s; my $d2 = $d1 =~ s/\D+//gr; - if (length($d2) < 2) {$d2 .= '0'} + if (length($d2) < 2) {$d2='0'.$d2} my %mth_map = ('Jan' => '01', 'Feb' => '02', 'Mar' => '03', 'Apr' => '04', 'May' => '05', 'Jun' => '06', |