How to convert date-time srings from different timezones into integer to find most recent i.e. maximum of integer in perl?

I have date-time strings in the below format

[yyyymmddhhmmss+TZ] "20110711114445+08", "20110711114445+05.30". 

How should i find out which is most recent date-time string ? I want all of the string to convert into a single time-zone and then convert the strings into integer to find out ma开发者_运维问答ximum integer. Help me out ?

---

You can use DateTime::Format::Strptime to parse the date-time strings into DateTime objects. Once you have the objects, you can compare them as ordinary integers.

use DateTime::Format::Strptime;
use List::Util 'max';

my $Strp = new DateTime::Format::Strptime(pattern => '%Y%m%d%H%M%S%z');
my @objects = map $Strp->parse_datetime($_), @strings;
my $dt = max(@objects);

---

The Date::Calc can help you.