How to convert mtime using strftime() in perl

[Anonymous Monk]

Hi Monks,
I am having a code to convert mtime to yyyymmdd hhmm using strftime function.But i am getting error as follows,see the code

use POSIX qw(strftime);
$mtime = 1151492749;
$systime = localtime($mtime);
print"Systime=> $systime\n";

$now_string = strftime "%a %b %e %H:%M:%S %Y", $systime;

print"New stirng=> $now_string\n";

output:-

Systime=> Wed Jun 28 16:35:49 2006
Usage: POSIX::strftime(fmt, sec, min, hour, mday, mon, year, wday = -1
+, yday = -1, isdst = -1) at one.pl line 46.

When I run this code i am getting this issue,Now I want the output as New stirng=> 20060628 1635.How I can get this.Please help me.
Thanks.

[Zaxo]

You're calling localtime in scalar context; strftime wants a list. You can just dispose of the $systime variable and say,

$now_string = strftime '%Y%m%d %H%M', localtime $mtime;

I threw in the strftime format string for what you want.

[Fletch]

strftime needs a list of values. You call localtime in scalar context, making it return just a pre-formatted string version of the time. Either use an array to hold the return value

my @systime = localtime( $mtime );
my $str = strftime( "%a %b %e %H:%M:%S %Y", @systime );

or call localtime when you call strftime

my $str = strftime( "%a %b %e %H:%M:%S %Y", localtime( $mtime ) );