Help for this page

Select Code to Download


  1. or download this
    use DateTime::Format::Strptime;
my $formatter = DateTime::Format::Strptime->new(pattern => "%F  %T");
my $dt_obj    = $formatter->parse_datetime("2008-11-03  19:03:44");
my $datetime  = $dt_obj->strftime("%a, %d %b %Y %T EST");
  2. or download this
    perl -ML -E'say DateTime::Format::Strptime->new(pattern => "%F  %T")->
                parse_datetime("2008-11-03  19:03:44")->strftime("%a, 
+%d %b %Y %T EST");
'
  3. or download this
    Mon, 03 Nov 2008 19:03:44 EST