Perlについての質問箱 24箱目
レス数が900を超えています。1000を超えると表示できなくなるよ。
0945デフォルトの名無しさん
2006/06/01(木) 12:43:12<10万行の ＼S+＼t＼S+ なファイルを読みこんだ場合の
ハッシュにするまでの速度。>
-- my %hash = map { chomp; split/\t/, } <> ;
1.71s user 0.22s system 93% cpu 2.067 total
-- my %hash = split /[＼t\n]+/, do { local $/ ; <> } ;
1.05s user 0.12s system 95% cpu 1.227 total
-- my %hash = join("", <>) =〜 /^(.+?)\s+(.+)$/mg;
3.04s user 0.30s system 94% cpu 3.540 total
レス数が900を超えています。1000を超えると表示できなくなるよ。