Perlについての質問箱 24箱目
レス数が950を超えています。1000を超えると書き込みができなくなります。
0951デフォルトの名無しさん
2006/06/01(木) 21:33:33933 対応版(敗北宣言)
10万行の ^\S+\t\S+\t\S+$ なファイルを読みこんだ場合の
ハッシュにするまでの速度。
1. my %hash = map { chomp; split/\t/, $_, 2 } <> ;
1.73s user 0.23s system 92% cpu 2.115 total
2.1. my %hash = do { local $/ ; <> } =〜 /^(.+?)\s+(.+)$/mg ;
2.43s user 0.21s system 91% cpu 2.869 total
2.2. my %hash = map { split /\t/, $_ , 2} split /\n/, do { local $/ ; <> } ;
1.46s user 0.16s system 92% cpu 1.752 total
945 の 2 はストレートに split できませんですた orz...
レス数が950を超えています。1000を超えると書き込みができなくなります。