1001コメント319KB

Perlについての質問箱 24箱目

レス数が950を超えています。1000を超えると書き込みができなくなります。

0952デフォルトの名無しさん

2006/06/02(金) 00:08:10

my %hash;
while (<>) {
  chomp;
  my ($key, @fields) = split /\t/;
  $hash{$key} = \@fields;
}

これだとハッシュの値には配列リファレンスが入ってスマートかつ高速。
ハッシュ格納前提だとアロケートサイズも最小限、だと思う。ヒネりはないけどなあ。w

レス数が950を超えています。1000を超えると書き込みができなくなります。