<?xml version="1.0" encoding="windows-1252"?>
<node id="1012522" title="Re^2: Convert timezone using offset and posix perl module" created="2013-01-09 11:17:25" updated="2013-01-09 11:17:25">
<type id="11">
note</type>
<author id="961">
Anonymous Monk</author>
<data>
<field name="doctext">
So i slept on it and came up with this in the morning:

&lt;code&gt;use DateTime;
use DateTime::Format::Strptime;

my @time = qw(Tue, 01 Jan 2013 16:05:53 +0000);
my $tz=pop(@time);
my $val="@time";

my $format = new DateTime::Format::Strptime(
                pattern =&gt; '%a, %d %b %Y %H:%M:%S',
                time_zone =&gt; "$tz",
                );

my $date = $format-&gt;parse_datetime($val);

$date-&gt;set_time_zone("America/Chicago");

print $date-&gt;strftime("%a, %d %b %Y %H:%M:%S %Z")."\n";&lt;/code&gt;

however, i would like to do it with all core modules...  any help is appreciated -- posix is no longer required...</field>
<field name="root_node">
1012285</field>
<field name="parent_node">
1012293</field>
<field name="reputation">
1</field>
</data>
</node>
