Help for this page

Select Code to Download


  1. or download this
    my $procdate = sprintf "%02d%02d%02d%02d%02d%02d", (localtime)[4]+1, (
+localtime)[3], substr((localtime)[5]+1900,2,2),(localtime)[2], (local
+time)[1], (localtime)[0];
  2. or download this
    use POSIX;
my $procdate = POSIX::strftime('%Y%m%d%H%M%S', localtime);