|
99
|
12 |
57 |
unless ($day, $mon, $yr, $hr, $min, $sec, $tz) = m[^
([0-9][0-9]?) # day
(?:\s+|[-/])
(\w+) # month
(?:\s+|[-/])
([0-9]+) # year
(?:
(?:\s+|:) # separator before clock
([0-9][0-9]?):([0-9][0-9]) # hour:min
(?::([0-9][0-9]))? # optional seconds
)? # optional clock
\s*
([-+]?[0-9]{2,4}|(?![APap][Mm]\b)[A-Za-z]+)? # timezone
\s*
(?:\(\w+\)|\w{3,})? # ASCII representation of timezone.
\s*$
]x or ($mon, $day, $hr, $min, $sec, $tz, $yr) = /^
(\w{1,3}) # month
\s+
([0-9][0-9]?) # day
\s+
([0-9][0-9]?):([0-9][0-9]) # hour:min
(?::([0-9][0-9]))? # optional seconds
\s+
(?:([A-Za-z]+)\s+)? # optional timezone
([0-9]+) # year
\s*$ # allow trailing whitespace
/x or ($mon, $day, $yr, $hr, $min, $sec) = /^
(\w{3}) # month
\s+
([0-9][0-9]?) # day
\s+
(?:
([0-9][0-9][0-9][0-9]) | # year
([0-9]{1,2}):([0-9]{2}) # hour:min
(?::([0-9][0-9]))? # optional seconds
)
\s*$
/x or ($yr, $mon, $day, $hr, $min, $sec, $tz) = m[^
([0-9]{4}) # year
[-/]?
([0-9][0-9]?) # numerical month
[-/]?
([0-9][0-9]?) # day
(?:
(?:\s+|[-:Tt]) # separator before clock
([0-9][0-9]?):?([0-9][0-9]) # hour:min
(?::?([0-9][0-9](?:\.[0-9]*)?))? # optional seconds (and fractional)
)? # optional clock
\s*
([-+]?[0-9][0-9]?:?(?:[0-9][0-9])?
|Z|z)? # timezone (Z is "zero meridian", i.e. GMT)
\s*$
]x or ($mon, $day, $yr, $hr, $min, $ampm) = /^
([0-9]{2}) # numerical month
-
([0-9]{2}) # day
-
([0-9]{2,4}) # year
\s+
([0-9][0-9]?):([0-9][0-9])([APap][Mm]) # hour:min AM or PM
\s*$
/x |