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

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

你期望什么输出？如果空字符串没问题，只需将undefs 替换为空字符串：

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