perl-表提取-在连接或字符串处使用未初始化的值

Question

我正在编码一个perl脚本，该脚本从html网页提取所有表，然后遍历内容。

在我的代码中

foreach my $ts ($te->tables) {
    print "Table (", join(',', $ts->coords), "):\n";
    foreach my $row ($ts->rows) {
            print join(',', @$row), "\n";
    }}

我明白了

  

在连接或字符串处使用未初始化的值

当表格的单元格中没有值时发生错误，例如

我不想压制警告，我认为有一种更优雅的解决方法。

预先感谢

Answer 1

您期望什么输出？如果可以使用空字符串，只需将undef替换为空字符串：

for my $row ($ts->ros) {
    print join(',', map $_ // "", @$row), "\n";
}