Convert date

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Convert date by Corion (Patriarch) on Jul 15, 2009 at 07:13 UTC
The time passed into `time2str` is supposed to be the number of seconds since 01.01.1970 ("epoch"), and not a string describing a year+month+date. So you'll have to first parse the date into its year,month,day parts, and then possibly use Time::Local to find the epoch time corresponding to that time.	[reply] [d/l]
Re: Convert date by ropey (Hermit) on Jul 15, 2009 at 08:22 UTC
If you just need to convert the date without any validation, why not do `my $date = '20080501'; $date =~ s/^(\d{4})(\d{2})(\d{2})$/$1-$2-$3/;` [download]	[reply] [d/l]
Re^2: Convert date by Anonymous Monk on Jul 15, 2009 at 09:29 UTC
Why does the line print Use of uninitialized value in substitution (s///) How to avoid it	[reply]
Re^3: Convert date by Corion (Patriarch) on Jul 15, 2009 at 09:39 UTC
The following code does not print any warning for me: `>perl -wle "my $date='20080501'; $date =~ s/^(\d{4})(\d{2})(\d{2})$/$1 +-$2-$3/;print $date" 2008-05-01` [download] So the problem must be with your other code and/or how you're using it. My guess is that `$date` in your case is not defined. Print out `$date` before trying a substitution on it: `print "I think \$date is [$date]\n";` [download]	[reply] [d/l] [select]
Re: Convert date by Anonymous Monk on Jul 15, 2009 at 07:15 UTC
Date::Format synopsis shows: `use Date::Format; @lt = localtime(time); print time2str($template, time); print strftime($template, @lt);` [download] time and localtime are perl functions. Its better to use strptime.	[reply] [d/l]
Re^2: Convert date by Anonymous Monk on Jul 15, 2009 at 07:27 UTC
Convert the string '20080501' to '2008-05-01'	[reply]
Re: Convert date by ambrus (Abbot) on Jul 15, 2009 at 16:21 UTC
`use Date::Manip; my $date = "20080501"; print UnixDate($date, "%Y-%m-%d\n");` [download]	[reply] [d/l]