Perl中如何统计含内容单元格，排除仅格式化的空单元格？

云上老周

2026-8-1

Perl统计Excel有效非空单元格（排除仅格式化空单元格）

原代码的问题在于直接将get_cell返回的单元格对象与空字符串比较，逻辑不严谨——仅做格式设置的空单元格会被视为存在的对象，但实际无内容，导致统计错误。以下是两种修正方案：

方案1：通过内容值判断（排除空白内容）

直接检查单元格的实际值是否包含有效内容（非空白字符）：

use Spreadsheet::ParseXLSX;
use XML::LibXML;

# 假设已完成$worksheet的初始化
my $cell_index = 0; # 根据实际起始索引调整
while (1) {
    my $cell = $worksheet->get_cell($cell_index, 1);
    last unless defined $cell; # 单元格不存在时终止循环

    my $cell_value = $cell->value();
    # 仅当值包含至少一个非空白字符时，才计数
    if ($cell_value =~ /\S/) {
        $cell_index++;
    } else {
        # 遇到仅格式化的空单元格，终止循环（若需遍历所有行，可改为$cell_index++并继续）
        last;
    }
}
print $cell_index, "\n";

方案2：通过单元格类型判断（更精准）

利用Spreadsheet::ParseXLSX的单元格类型，直接过滤出文本、数字类型的单元格，排除空白类型（即使有格式）：

use Spreadsheet::ParseXLSX;
use XML::LibXML;

# 假设已完成$worksheet的初始化
my $cell_index = 0; # 根据实际起始索引调整
while (1) {
    my $cell = $worksheet->get_cell($cell_index, 1);
    last unless defined $cell; # 单元格不存在时终止循环

    my $cell_type = $cell->type();
    # 仅统计文本或数字类型的单元格，且值非空
    if (($cell_type eq 'Text' || $cell_type eq 'Numeric') && $cell->value() ne '') {
        $cell_index++;
    } else {
        # 遇到空白/仅格式化单元格，终止循环（若需遍历所有行，可改为$cell_index++并继续）
        last;
    }
}
print $cell_index, "\n";