perl 解析 excel 日期格式问题

解析excel的时候 ，如果遇到cell里类型是date类型的时候。就出现了问题。

 

解决方案：

my $t = $cell->type(); if ($t eq 'Date' ) { my $time = $cell->unformatted(); my $f = ExcelFmt("yyyy-mm-dd HH:MM:SS", $time); push @$ref, $f; } else { push @$ref, $cell->value(); }