_ [Web]Perl で書いているサイトのログで時折出るエラー.

処理上のエラーでは無く、変数の初期化関連の警告、なのだが.

join(',', @tmp)

でエラーが出る.　@tmp は存在しているが、中身は sql で拾ってきたデータが、フィールド毎に配列に入っている.

色々と調べると・・・・・コレか、と云うのに出会えた.

配列の中のどこかに undef がある模様.　sql なので null でも入っていると想像される.

対応策としては

grep { $_ = '' unless defined($_) } @tmp;

を実行すると、 undef を '' に置き換えられる.

コレでしばらく様子を見ようか・・・・・・・