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 s на пустые строки:

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