Perl Excel 解析器截断列

Question

我是 Perl 新手，正在尝试解码 Perl 脚本，该脚本读取 Excel 文件并将数据导出到文本文件中。脚本中的其中一个步骤执行得很奇怪。这是步骤:

@array_name = grep {$_} @array_name;

如果值为0，此步骤仅截断最后一列；否则它可以正常工作。如果我删除此步骤，则值为 0 的最后一列会回来，但它在我的提取中包含一些虚拟 NULL 列，这些列不属于我的源 Excel 文件的一部分。

有人可以帮我理解这一步吗？

Answer 1

grep命令过滤非空内容。因此，所有不被评估为 true 的内容都将被丢弃。空单元格和包含 0 的单元格将被删除。如果您只想删除空单元格，您可以使用

@array_name = grep { defined && length } @array_name ;

相反。