$in = "20080230100000" ; # error
$mon=substr($in,4,2);
$day=substr($in,6,2);
$mon++;$mon--;
$day++;$day--;
$year = substr($in,0,4);
$hour = substr($in,8,2);
$min = substr($in,10,2);
$sec = substr($in,12,2);
eval
{
use Time::Local;
$dtime = $in;
$unix_dt = timelocal
(substr($dtime,12,2),substr($dtime,10,......
阅读全文