2004-11-30
[Devel]Perlを最適化する 

Perlを最適化する (via オレンジニュース)
- ダブルクォートのみ
print "A stringanother string\n";
- ピリオドで連結
print 'A string'.'another string'."\n";
- 列挙
print 'A string','another string',"\n";
場合によっては*1、3が一番早いらしい。
- ダブルクォートのみ
foreach my $count (0..100000) { $another_string = 10000 x chr($count % 26 + 65); print "A string$another_string\n"; }
- ピリオドで連結
foreach my $count (0..100000) { $another_string = 10000 x chr($count % 26 + 65); print 'A string'.$another_string."\n"; }
- 列挙
foreach my $count (0..100000) { $another_string = 10000 x chr($count % 26 + 65); print 'A string',$another_string,"\n"; }