Re: Date Validation using just a regex

in reply to Date Validation using just a regex

Why on earth ... ? Well, why not ...

/(?=\d{4}-\d\d-\d\d)             # Date format
 (?=.{8}(?:0[1-9]|[12]\d|3[01])) # Day 01-31
 (?=.{5}(?:0[1-9]|1[0-2]))       # Month 01-12
 (?!.{5}(?:0[2469]|11)-31)       # Not 31 days in those months
 (?!.{5}02-30)                   # Never 30 days in Feb
 (?!...[13579]-02-29)            # Not a leap year
 (?!..[13579][048]-02-29)        # -"-
 (?!..[02468][26]-02-29)         # -"-
 (?!.[13579]00-02-29)            # -"-
 (?![13579][048]00-02-29)        # -"-
 (?![02468][26]00-02-29)         # -"-
/x
[download]

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

Comment on Re: Date Validation using just a regex Select or Download Code

Replies are listed 'Best First'.
Re^2: Date Validation using just a regex by zakzebrowski (Curate) on Jul 01, 2004 at 23:18 UTC
Consider forwarding this node off to Abigail-II for inclusion in Regexp::Common! I'm sure that he'll request that you make it more generic, but I also know that "dates" is on the "to do list" for the module... Zak ---- Zak - the office	[reply]

In Section Seekers of Perl Wisdom