TimestampInPerl


 

my ($S,$M,$H,$d,$m,$y) = localtime(time);$y+=1900;$m++;
my $timestamp = sprintf("%04d%02d%02d%02d%02d%02d",$y,$m,$d,$H,$M,$S);