使用perl读取电子表格中的时间格式数据

cpan Spreadsheet::ParseExcel

use strict;
use warnings;
use Spreadsheet::ParseExcel;

# 打开电子表格文件
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('path/to/spreadsheet.xls');

if (defined $workbook) {
    # 选择第一个工作表
    my $worksheet = $workbook->worksheet(0);

    # 遍历行和列
    for my $row (0 .. $worksheet->maxrow) {
        for my $col (0 .. $worksheet->maxcol) {
            # 获取单元格对象
            my $cell = $worksheet->get_cell($row, $col);

            # 判断单元格是否存在并且为时间格式
            if ($cell && $cell->type() eq 'Date') {
                # 获取时间值
                my $date_value = $cell->value();

                # 在这里可以对时间值进行进一步处理
                # ...

                # 输出时间值
                print "时间值：$date_value\n";
            }
        }
    }
} else {
    die $parser->error(), ".\n";
}