Getting error when using Date::Format

I would like to convert 2003-07-04T15:56:00 to 04/07-2003 so I do

#!/usr/bin/perl -w
use strict;
use Date::Format;
use Data::Dumper;

my $time_format = "%d/%m-%Y";
my $time = "2003-07-04T15:56:00";

print Dumper time2str($time_format, $time);

and get

Argument "2003-07-04T15:56:00" isn't numeric in localtime at /usr/lib/perl5/vendor_perl/5.8.8/Date/Format.pm line 123.
$VAR1 = '01/01-1970';

Any idea how to do this dat开发者_运维知识库e convertion?

The error message is spot on: time2str expects a numeric date representation, but got the string "2003-07-04T15:56:00".

There are most likely several ways to resolve this. One of them is Time::Local, that can help you create a proper numeric date.

Try to replace

my $time = "2003-07-04T15:56:00";

with:

my $time = timelocal(0,56,15,4,7-1,2003);

As @Jorik pointed out, month specification is a little unusual:

It is worth drawing particular attention to the expected ranges for the values provided. The value for the day of the month is the actual day (ie 1..31), while the month is the number of months since January (0..11). This is consistent with the values returned from localtime() and gmtime().

Edit For generic solutions to dates in strings check out the answers to this question: How can I parse dates and convert time zones in Perl?.

DateTime::Format::Strptime
    ->new(pattern => '%FT%T')
    ->parse_datetime('2003-07-04T15:56:00')
    ->strftime('%d/%m-%Y')

# returns 04/07-2003