diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-12-23 12:40:40 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-12-23 12:40:40 +0000 |
| commit | 3ca079154360bf188d79970216b636e95dc2a032 (patch) | |
| tree | cc79438c77fbfe66a2de92bb3b76e5ffedc43651 | |
| parent | b01bda291bbee2124e48405822e75808cbd431c3 (diff) | |
| parent | b0a74fd780540a28a1c07da83711eda4dfde7f01 (diff) | |
| download | perlweeklychallenge-club-3ca079154360bf188d79970216b636e95dc2a032.tar.gz perlweeklychallenge-club-3ca079154360bf188d79970216b636e95dc2a032.tar.bz2 perlweeklychallenge-club-3ca079154360bf188d79970216b636e95dc2a032.zip | |
Merge pull request #1061 from andrezgz/challenge-038-fix
challenge-038 andrezgz ch-1 regex fix
| -rw-r--r-- | challenge-038/andrezgz/perl5/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-038/andrezgz/perl5/ch-1.pl b/challenge-038/andrezgz/perl5/ch-1.pl index 0a0a55468e..c95f791a90 100644 --- a/challenge-038/andrezgz/perl5/ch-1.pl +++ b/challenge-038/andrezgz/perl5/ch-1.pl @@ -26,7 +26,7 @@ my $n = shift || die "USAGE $0 <7-digit-date>"; die 'invalid 7-digits date'.$/ if $n !~ /^ - (?<y1>[1,2]) # 1st: 1 or 2 + (?<y1>[12]) # 1st: 1 or 2 (?<y2>\d{2}) # 2nd & 3rd: anything (?<m>0[1-9]|1[0-2]) # 4th & 5th: month (?<d>0[1-9]|[12][0-9]|3[01]) # 6th & 7th: day of the month |