RFC822 and ISO8601 date formats in Perl

gerikson (Gustaf Erikson) — Thu, 01 Sep 2005 21:29:28 GMT

Using only the standard POSIX module.



#!/usr/bin/perl -w



 use strict;

 use POSIX qw(strftime);



 my $now = time();



 # We need to munge the timezone indicator to add a colon between the hour and minute part

 my $tz = strftime("%z", localtime($now));

 $tz =~ s/(\d{2})(\d{2})/$1:$2/;



 # ISO8601

 print strftime("%Y-%m-%dT%H:%M:%S", localtime($now)) . $tz . "\n";

 # RFC822 (actually RFC2822, as the year has 4 digits)

 print strftime("%a, %d %b %Y %H:%M:%S %z", localtime($now)) . "\n";

Create an RFC822 compliant date in Perl

beutelevision (Thomas Beutel) — Fri, 08 Jul 2005 04:41:10 GMT



use Date::Manip qw(ParseDate UnixDate);



# Create an RFC822 compliant date (current time)

my $rfc822_format = "%a, %d %b %Y %H:%M %Z";

my $today         = ParseDate("Now");



my $rfc822_date   = UnixDate($today,$rfc822_format);

DZone Snippets: rfc822 code

RFC822 and ISO8601 date formats in Perl

Create an RFC822 compliant date in Perl