| Current Path : /usr/share/doc/libdatetime-format-builder-perl/examples/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : //usr/share/doc/libdatetime-format-builder-perl/examples/Simple.pm |
package DateTime::Format::Simple;
use DateTime::Format::Builder (
parsers => {
parse_datetime => [
{
params => [qw( year month mday hours mins secs fsecs ampm )],
regex => qr[^
(\d{4}) \s*-?\s* (\d{2}) \s*-?\s* (\d{2})
\s*
(?:-?\s* (\d{1,2}) :? (\d{2}) (?::? (\d{2}) )? )?
(?:\. (\d+) ) ? # fsecs
(?:\s* ([aApP]\.?[mM]\.?) )?
$
]x,
},
{
# mm/dd/yyyy, mm-dd-yyyy, [hh:mm[:ss[.nnn]]] [am/pm]
params => [qw( month mday year hours mins secs fsecs ampm )],
regex => qr#^
(\d{1,2})[-/](\d{1,2})[-/](\d{4})
(?:\s+(\d{1,2}):(\d{2})(?::(\d{2}))?)?
(?:\.(\d+))?
(?:\s*([aApP]\.?[mM]\.?))?
$
#x
},
]
}
);