VPF::Почему операция разыменования медленная?

tolkien

Дата 15.11.2008, 12:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 277
Регистрация: 5.4.2008

Репутация: 4
Всего: 4

Тест показывает что операция разыменование очень и очень медленная. Кто нибудь знает почему?

Код


use Benchmark qw(:all) ;

sub test1
{
  my ($n) = @_;
  return $n.' world!';
}

sub test2
{
  my ($n) = @_;
  return ${$n}.'world ';
}

sub test3
{
  return $_[0].'world ';
}

sub test4
{
  return ${$_[0]}.'world ';
}

cmpthese(1000000, {
        'test1' => sub {my $s = 'hello '; $s = test1($s);},
        'test2' => sub {my $s = 'hello '; $s = test2(\$s);},
        'test3' => sub {my $s = 'hello '; $s = test3($s);},
        'test4' => sub {my $s = 'hello '; $s = test4(\$s);},
    });

Вывод
                Rate test2 test4 test1 test3
test2 533618/s    --  -18%  -35%  -42%
test4 652742/s   22%    --  -20%  -29%
test1 820345/s   54%   26%    --  -10%
test3 914077/s   71%   40%   11%    --

Почему test3 быстрее всех мне понятно и это логично. Но почему test1 быстрее test2 и test3? Если призвать логику. То test1 должен быть медленнее всех т.к копирование строки медленее копирования ссылки. Но дальше смотришь и ужасаешься. Тормоза из за операции разыменование. Такого подвоха я от PERL ну никак не ждал.

sir_nuf_nuf

Дата 15.11.2008, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31

tolkien, у вас помимо разыменования, есть еще куча других операций.
Попробуем тест попроще

Код


#!/usr/bin/perl
use Benchmark qw(:all) ;

my $a = 1;
my $b = \$a;

cmpthese(10000000, {
        'test1' => sub {return $a},
        'test2' => sub {return $$b},
    });

Код


            Rate test2 test1
test2 10416667/s    --   -8%
test1 11363636/s    9%    --

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »