diff options
| author | andrezgz <andrezgz@gmail.com> | 2019-12-23 00:54:11 -0300 |
|---|---|---|
| committer | andrezgz <andrezgz@gmail.com> | 2019-12-23 00:54:11 -0300 |
| commit | b0a74fd780540a28a1c07da83711eda4dfde7f01 (patch) | |
| tree | cc79438c77fbfe66a2de92bb3b76e5ffedc43651 /challenge-038 | |
| parent | b01bda291bbee2124e48405822e75808cbd431c3 (diff) | |
| download | perlweeklychallenge-club-b0a74fd780540a28a1c07da83711eda4dfde7f01.tar.gz perlweeklychallenge-club-b0a74fd780540a28a1c07da83711eda4dfde7f01.tar.bz2 perlweeklychallenge-club-b0a74fd780540a28a1c07da83711eda4dfde7f01.zip | |
challenge-038 andrezgz ch-1 regex fix
Diffstat (limited to 'challenge-038')
| -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 |