Help for this page

Select Code to Download


  1. or download this
    my @TimeArray = localtime(time);
my $year = sprintf ("%04d",$TimeArray[5]+1900);
...
my $hour = sprintf ("%02d",$TimeArray[2]);
my $minute = sprintf ("%02d",$TimeArray[1]);
my $datestamp =  "$year"."_"."$monthasnum"."_"."$day"."_"."$hour" ."_"
+."$minute" ;
  2. or download this
    use POSIX;

my $datestamp = strftime( "%Y_%m_%d_%H_%M", localtime );