1package DateTime::Format::Simple; 2 3use DateTime::Format::Builder ( 4 parsers => { 5 parse_datetime => [ 6 { 7 params => [qw( year month mday hours mins secs fsecs ampm )], 8 regex => qr[^ 9 (\d{4}) \s*-?\s* (\d{2}) \s*-?\s* (\d{2}) 10 \s* 11 (?:-?\s* (\d{1,2}) :? (\d{2}) (?::? (\d{2}) )? )? 12 (?:\. (\d+) ) ? # fsecs 13 (?:\s* ([aApP]\.?[mM]\.?) )? 14 $ 15 ]x, 16 }, 17 { 18 # mm/dd/yyyy, mm-dd-yyyy, [hh:mm[:ss[.nnn]]] [am/pm] 19 params => [qw( month mday year hours mins secs fsecs ampm )], 20 regex => qr#^ 21 (\d{1,2})[-/](\d{1,2})[-/](\d{4}) 22 (?:\s+(\d{1,2}):(\d{2})(?::(\d{2}))?)? 23 (?:\.(\d+))? 24 (?:\s*([aApP]\.?[mM]\.?))? 25 $ 26 #x 27 }, 28 ] 29 } 30); 31