2004-11-30 の変更点
**&tag(Devel);Perlを最適化する [#if238b58e]
[[Perlを最適化する>http://www-6.ibm.com/jp/developerworks/linux/041119/j_l-optperl.html]] (via [[オレンジニュース>http://secure.ddo.jp/~kaku/tdiary/]])
>
+ダブルクォートのみ
print "A stringanother string\n";
+ピリオドで連結
print 'A string'.'another string'."\n";
+列挙
print 'A string','another string',"\n";
<
>
場合によっては((連結する文字列が長い場合?))、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";
}
#blognavi(Blog)