使用Excel :: XLSX解析Perl中的电子表格

Question

我使用Perl模块Spreadsheet :: XLSX来解析Excel电子表格。 部分数据如下所示：

    Time        A1      A2      A3      
    0m14m35     0.12    0.13    0.14
    0m29m35     0.15    0.16    0.17

这是代码的一部分：

foreach my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) {

    foreach my $col ($sheet->{MinCol} ..  $sheet->{MaxCol}) {

        my $cell = $sheet->{Cells}[$row][$col];
        my $val = $cell->{Val} || "";
    }   
}

问题是时间值转换为浮点数：

 '0m14m35' becomes:  0.0101273148148148
 '0m29m35' becomes:  0.0205439814814815

如何将时间字符串保留为字符串？

谢谢！ L.

Answer 1

$cell->{Val}是未格式化的值（与$cell->unformatted() ）。 尝试获取$cell->value() （与$cell-{_Value} ），这是格式化的值;

Excel将日期存储为浮点数，因此如果要格式化它们，可以使用Spreadsheet :: ParseExcel :: Utility中的ExcelFmt（）函数，并且您将希望使用未格式化的值作为该函数的参数之一。 您甚至可以使用$cell->get_format()获取format参数