diff options
| author | Robbie Hatley <Hatley.Software@gmail.com> | 2025-11-14 13:05:08 -0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-11-14 13:05:08 -0800 |
| commit | d1c0a157bb00772ba05233b72dbeb192268ebf2d (patch) | |
| tree | 380e2e44287cff22b63b0a113edd9f0e825d5dc2 | |
| parent | 906552b855497e2a40615fa423b67999422aed1b (diff) | |
| download | perlweeklychallenge-club-d1c0a157bb00772ba05233b72dbeb192268ebf2d.tar.gz perlweeklychallenge-club-d1c0a157bb00772ba05233b72dbeb192268ebf2d.tar.bz2 perlweeklychallenge-club-d1c0a157bb00772ba05233b72dbeb192268ebf2d.zip | |
Fixed bug in 347-1
Fixed wrong digit order for days 1-9.
| -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', |