Perl メモ [Computer and Networking ] 某所で Perl のプログラミングに悩んでいる例があったのでちょっと考えてみる。 配列値の undef 要素 my @a = ('A', undef, 'B'); my $s = join(',', @a); このように要素に undef を含む配列について join などをする場合、"Use of uninitialized value in join or string at .. " と警告が出る。これを回避するには予め grep で undef 要素を排除しておく。 @a = grep(defined($_), @a); undef を空文字列要素などとして残したい場合には次のようにする。 grep { $_ = '' unless defined($_) } @a; TCP サーバ Perl クックブックに T