作者: 閑舎
日時: 2002/5/04(11:09)
"KAWAI,Takanori" <GCD00051@...> さん writes.

> ちょっと気になったのですが、
> >     $tbl{$2} = ($tbl{$2} eq "")? $1: "$tbl{$2},$1";
> は
>     $tbl{$2} = (! defined $tbl{$2})? $1: "$tbl{$2},$1";
> のほうがよいのではないかと。

厳密にいうと、そうですね。でも、さらに厳密にいうと defined でも正確でな
い場合があったりはしてますしね(^^;。この場合には問題は起こりませんが。

> 自分の場合はこんなのとか。基本的な構造は全く
> 同じですけど、配列リファレンスで保持してみました。
> #Perl4じゃ動かないでしょうけど

join でつなげるというところが優雅ですね。

--
本田博通（閑舎）
Hiromichi Honda <raku@...>