Help for this page

Select Code to Download

Select or download this

                 # assumption: yyyymmddhhmmss
$date =~ /(....)(..)(..)(..)(..)(..)/;
...
my $month = $2;
...
my $sec   = $6;