view release on metacpan or  search on metacpan

lib/AC/ISOTime.pm  view on Meta::CPAN

    return strftime( '%Y%m%dT%H%M%S', gmtime($t)) . $f . 'Z';

}

# convert iso8601 => time_t
sub timeiso {
    my $iso = shift;

    return unless $iso;

    $iso =~ s/^\s+//g; # Ensure no leading spaces can throw off the split

    my($date, $time) = split /T|\s/, $iso, 2;
    $time =~ s/\s//g;

    $time ||= '00:00:00Z';
    my($year, $mon, $day) = $date =~ /(\d{4})-?(\d{2})-?(\d{2})?/;
    $day ||= 1;	# day is optional

    ($time, my $tz) = $time =~ /([^-+Z]+)(.*)/;
    my($hr, $min, $sec) = $time =~ /(\d{2}):?(\d{2}):?(.*)/;