Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
my $rtime = $req_date + 1*60*60;
my $date1 = strftime '%Y-%m-%d %H:%M:%S', localtime $rtime;
print $date1, "\n";
  2. or download this
    2006-05-17 12:00:00
2006-05-17 13:00:00