.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). .\" Fear. Run. Save yourself. No user-serviceable parts. . \" fudge factors for nroff and troff .if n \{\ . ds #H 0 . ds #V .8m . ds #F .3m . ds #[ \f1 . ds #] \fP .\} .if t \{\ . ds #H ((1u-(\\\\n(.fu%2u))*.13m) . ds #V .6m . ds #F 0 . ds #[ \& . ds #] \& .\} . \" simple accents for nroff and troff .if n \{\ . ds ' \& . ds ` \& . ds ^ \& . ds , \& . ds ~ ~ . ds / .\} .if t \{\ . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' .\} . \" troff and (daisy-wheel) nroff accents .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' .ds 8 \h'\*(#H'\(*b\h'-\*(#H' .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] .ds ae a\h'-(\w'a'u*4/10)'e .ds Ae A\h'-(\w'A'u*4/10)'E . \" corrections for vroff .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' . \" for low resolution devices (crt and lpr) .if \n(.H>23 .if \n(.V>19 \ \{\ . ds : e . ds 8 ss . ds o a . ds d- d\h'-1'\(ga . ds D- D\h'-1'\(hy . ds th \o'bp' . ds Th \o'LP' . ds ae ae . ds Ae AE .\} .rm #[ #] #H #V #F C .\" ======================================================================== .\" .IX Title "DateTime::Format::HTTP 3pm" .TH DateTime::Format::HTTP 3pm "2021-01-01" "perl v5.32.0" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" DateTime::Format::HTTP \- Date conversion routines .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 1 \& use DateTime::Format::HTTP; \& \& my $class = \*(AqDateTime::Format::HTTP\*(Aq; \& $string = $class\->format_datetime($dt); # Format as GMT ASCII time \& $time = $class\->parse_datetime($string); # convert ASCII date to machine time .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" This module provides functions that deal the date formats used by the \&\s-1HTTP\s0 protocol (and then some more). .SH "METHODS" .IX Header "METHODS" .ie n .SS "parse_datetime( $str [, $zone] )" .el .SS "parse_datetime( \f(CW$str\fP [, \f(CW$zone\fP] )" .IX Subsection "parse_datetime( $str [, $zone] )" The \fBparse_datetime()\fR function converts a string to machine time. It throws an error if the format of \f(CW$str\fR is unrecognized, or the time is outside the representable range. The time formats recognized are listed below. .PP The function also takes an optional second argument that specifies the default time zone to use when converting the date. This parameter is ignored if the zone is found in the date string itself. If this parameter is missing, and the date string format does not contain any zone specification, then the floating time zone is used. .PP The zone should be one that is recognized by DateTime::TimeZone. .PP Actual parsing is done with the HTTP::Date module. At the time of writing it supports the formats listed next. Consult that module's documentation in case the list has been changed. .PP .Vb 5 \& "Wed, 09 Feb 1994 22:23:32 GMT" \-\- HTTP format \& "Thu Feb 3 17:03:55 GMT 1994" \-\- ctime(3) format \& "Thu Feb 3 00:00:00 1994", \-\- ANSI C asctime() format \& "Tuesday, 08\-Feb\-94 14:15:29 GMT" \-\- old rfc850 HTTP format \& "Tuesday, 08\-Feb\-1994 14:15:29 GMT" \-\- broken rfc850 HTTP format \& \& "03/Feb/1994:17:03:55 \-0700" \-\- common logfile format \& "09 Feb 1994 22:23:32 GMT" \-\- HTTP format (no weekday) \& "08\-Feb\-94 14:15:29 GMT" \-\- rfc850 format (no weekday) \& "08\-Feb\-1994 14:15:29 GMT" \-\- broken rfc850 format (no weekday) \& \& "1994\-02\-03 14:15:29 \-0100" \-\- ISO 8601 format \& "1994\-02\-03 14:15:29" \-\- zone is optional \& "1994\-02\-03" \-\- only date \& "1994\-02\-03T14:15:29" \-\- Use T as separator \& "19940203T141529Z" \-\- ISO 8601 compact format \& "19940203" \-\- only date \& \& "08\-Feb\-94" \-\- old rfc850 HTTP format (no weekday, no time) \& "08\-Feb\-1994" \-\- broken rfc850 HTTP format (no weekday, no time) \& "09 Feb 1994" \-\- proposed new HTTP format (no weekday, no time) \& "03/Feb/1994" \-\- common logfile format (no time, no offset) \& \& "Feb 3 1994" \-\- Unix \*(Aqls \-l\*(Aq format \& "Feb 3 17:03" \-\- Unix \*(Aqls \-l\*(Aq format \& \& "11\-15\-96 03:52PM" \-\- Windows \*(Aqdir\*(Aq format .Ve .PP The parser ignores leading and trailing whitespace. It also allow the seconds to be missing and the month to be numerical in most formats. .PP If the year is missing, then we assume that the date is the first matching date \fIbefore\fR current month. If the year is given with only 2 digits, then \fBparse_date()\fR will select the century that makes the year closest to the current date. .SS "\fBformat_datetime()\fP" .IX Subsection "format_datetime()" The \f(CW\*(C`format_datetime()\*(C'\fR method converts a DateTime to a string. If the function is called without an argument, it will use the current time. .PP The string returned is in the format preferred for the \s-1HTTP\s0 protocol. This is a fixed length subset of the format defined by \s-1RFC 1123,\s0 represented in Universal Time (\s-1GMT\s0). An example of a time stamp in this format is: .PP .Vb 1 \& Sun, 06 Nov 1994 08:49:37 GMT .Ve .SS "format_iso( [$time] )" .IX Subsection "format_iso( [$time] )" Same as \fBformat_datetime()\fR, but returns a \*(L"YYYY-MM-DD hh:mm:ss\*(R"\-formatted string representing time in the local time zone. It is \fBstrongly\fR recommended that you use \f(CW\*(C`format_isoz\*(C'\fR or \f(CW\*(C`format_datetime\*(C'\fR instead (as these provide time zone indication). .SS "format_isoz( [$dt] )" .IX Subsection "format_isoz( [$dt] )" Same as \fBformat_iso()\fR, but returns a \*(L"YYYY-MM-DD hh:mm:ssZ\*(R"\-formatted string representing Universal Time. .SH "THANKS" .IX Header "THANKS" Gisle Aas (\s-1GAAS\s0) for writing HTTP::Date. .PP Iain, for never quite finishing \f(CW\*(C`HTTP::Date::XS\*(C'\fR. .SH "SUPPORT" .IX Header "SUPPORT" Support for this module is provided via the datetime@perl.org email list. See http://lists.perl.org/ for more details. .PP Alternatively, log them via the \s-1CPAN RT\s0 system via the web or email: .PP .Vb 2 \& http://rt.cpan.org/NoAuth/ReportBug.html?Queue=DateTime%3A%3AFormat%3A%3AHTTP \& bug\-datetime\-format\-http@rt.cpan.org .Ve .PP This makes it much easier for me to track things and thus means your problem is less likely to be neglected. .SH "LICENCE AND COPYRIGHT" .IX Header "LICENCE AND COPYRIGHT" Copyright Iain Truskett, 2003. All rights reserved. Sections of the documentation Gisle Aas, 1995\-1999. Changes since version 0.35 copyright David Rolsky, 2004. .PP This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.000 or, at your option, any later version of Perl 5 you may have available. .PP The full text of the licences can be found in the \fIArtistic\fR and \&\fI\s-1COPYING\s0\fR files included with this module, or in perlartistic and perlgpl as supplied with Perl 5.8.1 and later. .SH "AUTHOR" .IX Header "AUTHOR" Originally written by Iain Truskett , who died on December 29, 2003. .PP Maintained by Dave Rolsky and Christiaan Kras .SH "SEE ALSO" .IX Header "SEE ALSO" \&\f(CW\*(C`datetime@perl.org\*(C'\fR mailing list. .PP http://datetime.perl.org/ .PP perl, DateTime, HTTP::Date, DateTime::TimeZone.