Top/Blog/2004-11-30

2004-11-30はてなブックマーク

[Devel]Perlを最適化する Permalinkはてなブックマーク

Perlを最適化する (via オレンジニュース)

  1. ダブルクォートのみ
    print "A stringanother string\n";
  2. ピリオドで連結
    print 'A string'.'another string'."\n";
  3. 列挙
    print 'A string','another string',"\n";

場合によっては*1、3が一番早いらしい。

  1. ダブルクォートのみ
    foreach my $count (0..100000)
    {
      $another_string = 10000 x chr($count % 26 + 65);
      print "A string$another_string\n";
    }
  2. ピリオドで連結
    foreach my $count (0..100000)
    {
      $another_string = 10000 x chr($count % 26 + 65);
      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";
    }
*1 連結する文字列が長い場合?
差分 一覧