Делаю перебор в хеше:

foreach $x(keys %gar){
    print OUT "$gar{$x}{topic}$gar{$x}{pub}\n"
}


значение $gar{$x}{topic} есть всегда
а значения $gar{$x}{pub} есть в 90% случаев.

Perl выдает:
Use of uninitialized value in concatenation (.) or string at !comparator8.pl line 1496, <KON> line 2644738.


Как сделать перебор правильно, чтобы не выскакивало предупреждений? Кроме $gar{$x}{pub} в хеше еще 10 параметров, которые могут быть, а могут и не быть. Нужно выводить их в том случае, если они есть. 

Я бы написал так:


Это сообщение отредактировал(а) ginnie - 20.4.2011, 16:10

perldoc -f exists

Suppir, паребираете элементы вы правильно, предупреждение возникает при выводе не существующего элемента хеша. Добавьте дополнительную проверку.

Ребята, я использовал ранее предложенные вами варианты. Но мне нужно выводить, например, в log:

print log "$gar{$x}{topic}$gar{$x}{pub}$gar{$x}{prim}$gar{$x}{raw}\n\n"   (и т.д., всего 10 параметров).

Делать проверку всех параметров нереально - слишком много комбинаций. Нужно сделать огромное количество проверок перед выводом. 

Всегда есть параметр $gar{$x}{topic}, а остальные могут быть, а могут и не быть. Нужно вывести в лог только те параметры, которые есть. Но при этом чтобы не возникало предупреждений.

Интересует, как можно добавить в хеш "пустые" элементы? Чтобы и в лог ничего лишнего не выводилось, и предупреждений не возникало. 

Это сообщение отредактировал(а) Suppir - 20.4.2011, 16:31

Сделать no warnings или вовсе не делать use warnings уже предлагали?

Pfailed, 

предупреждения я использую для отлова других ошибок. Очень полезно. 

Интересует, можно ли добавить в хеш "пустые" элементы (которые НЕ будут выводиться в log и не будут вызывать предупреждения).

Это сообщение отредактировал(а) Suppir - 20.4.2011, 16:41

Suppir, чем мой вариант не устраивает?

Добавить элементы несложно:

Спасибо, попробую эти варианты:


$gar{$x}{$_} //= '' for (qw(topic pub prim raw))




 # не выводить предупреждения об uninitialized только в этом блоке
    no warnings 'uninitialized';
    print log "$gar{$x}{topic}$gar{$x}{pub}$gar{$x}{prim}$gar{$x}{raw}\n\n";
}