#!/usr/bin/env perl
use Time::HiRes;
$time_1 = [Time::HiRes::gettimeofday()];
foreach (1 .. 100000000)
{
my $str .="qwertyuioplkjhgfdsazxcvbnm";
}
my $time_2 = [Time::HiRes::gettimeofday()];
print Time::HiRes::tv_interval($time_1, $time_2), "\n";
быстрее ли $str .= <строковое выражение> чем $tmp = <строк. выр.>; $str .= $tmp ?
Если да, то на сколько быстрее ?
будет ли происходить лишнее копирование полученной строки в $tmp или
полученная строка будет просто названа $tmp ?
будет ли происходить лишнее копирование полученной строки в $tmp или
полученная строка будет просто названа $tmp ?
мне кажеться вопрос именно в том, что присваивается - строковая переменная или строковое выражение
Меня всегда убивали вопросы "что быстрее".
Код:
$start = microtime();
for($i = 0; $i < 10000000; ++$i) {
}
echo microtime() - start();
for($i = 0; $i < 10000000; ++$i) {
}
echo microtime() - start();
Логически присвоить значение к строке быстрее чем
записать заново и присвоить.
Цикл в 1000000 итерациц покажет, но не существенно.
записать заново и присвоить.
Цикл в 1000000 итерациц покажет, но не существенно.
Цитата: zoh
Цикл в 1000000 итерациц покажет, но не существенно.
Нифига он не покажет. Втыкнется какойто процес и все попортит :).
2Автор. А что ето вы так оптимизируете ? Не лутше ли в даном случае больше думать о читабельности нежели о быстродействии.
Цитата: Rebbit
2Автор. А что ето вы так оптимизируете ? Не лутше ли в даном случае больше думать о читабельности нежели о быстродействии.
Алгоритм декриптования.
А где взять эту функцию microtime, а то мне кажеться, что она ПХП-ая, а не Перловая ?
А язык не судьба указать?
2Rebbit Можно прогнать пару десятков раз ))))
2Rebbit Можно прогнать пару десятков раз ))))
Цитата: shaelf
А язык не судьба указать?!
Да, точно, забыл указать Пёрл. Извиняюсь.
use Time::HiRes qw(gettimeofday tv_interval);
$str = "Hello World";
$n = 1000000;
$t0 = [gettimeofday];
for($i = 0; $i < $n; ++$i) {
$str2 .= substr($str, 1, 5);
}
print tv_interval($t0)."\n";
$t0 = [gettimeofday];
for($i = 0; $i < $n; ++$i) {
$tmp = substr($str, 1, 5);
$str1 .= $tmp;
}
print tv_interval($t0)."\n";
D:\workspace\_Perl>perl str.pl
4.217489
4.452128
большая блин разница
$str = "Hello World";
$n = 1000000;
$t0 = [gettimeofday];
for($i = 0; $i < $n; ++$i) {
$str2 .= substr($str, 1, 5);
}
print tv_interval($t0)."\n";
$t0 = [gettimeofday];
for($i = 0; $i < $n; ++$i) {
$tmp = substr($str, 1, 5);
$str1 .= $tmp;
}
print tv_interval($t0)."\n";
D:\workspace\_Perl>perl str.pl
4.217489
4.452128
большая блин разница
Код:
результат прогона - 38.8905 секунд
Код:
#!/usr/bin/env perl
use Time::HiRes;
$time_1 = [Time::HiRes::gettimeofday()];
foreach (1 .. 100000000)
{
my $tmp = "qwertyuioplkjhgfdsazxcvbnm";
my $str .= $tmp;
}
my $time_2 = [Time::HiRes::gettimeofday()];
print Time::HiRes::tv_interval($time_1, $time_2), "\n";
use Time::HiRes;
$time_1 = [Time::HiRes::gettimeofday()];
foreach (1 .. 100000000)
{
my $tmp = "qwertyuioplkjhgfdsazxcvbnm";
my $str .= $tmp;
}
my $time_2 = [Time::HiRes::gettimeofday()];
print Time::HiRes::tv_interval($time_1, $time_2), "\n";
57.794762
Код:
#!/usr/bin/env perl
use Time::HiRes;
$time_1 = [Time::HiRes::gettimeofday()];
my $tmp = "qwertyuioplkjhgfdsazxcvbnm";
foreach (1 .. 100000000)
{
;
my $str .= $tmp;
}
my $time_2 = [Time::HiRes::gettimeofday()];
print Time::HiRes::tv_interval($time_1, $time_2), "\n";
use Time::HiRes;
$time_1 = [Time::HiRes::gettimeofday()];
my $tmp = "qwertyuioplkjhgfdsazxcvbnm";
foreach (1 .. 100000000)
{
;
my $str .= $tmp;
}
my $time_2 = [Time::HiRes::gettimeofday()];
print Time::HiRes::tv_interval($time_1, $time_2), "\n";
38.84418
делаем выводы сами :)
diesel_den
hint: код без use strict будет всегда отрабатывать медленее аналогичного с use strict. а в твоем варианте - код вообще убьет машину на большом числе прогонов. и еще - вариант, когда используется временная переменная - дает меньший расход по памяти :)
hint: код без use strict будет всегда отрабатывать медленее аналогичного с use strict. а в твоем варианте - код вообще убьет машину на большом числе прогонов. и еще - вариант, когда используется временная переменная - дает меньший расход по памяти :)
Цитата: squirL
делаем выводы сами :)
спасибо за эти тесты. Ваш второй тест показал,
что Пёрл не произвёл очевидную оптимизацию.
Но в моём случае временную переменную нельзя вынести из цикла,
так как на каждой итерации она получает новое значение.
Но я вот немного изменил свой тест и увидил,
что копирование производится независимо от того,
присваиваем ли мы переменной LVALUE или результат выражения
(лично я думал, что лишнее копирование должно происходить
только при присваивании LVALUE):
use Time::HiRes qw(gettimeofday tv_interval);
$str = "Hello World";
$n = 1000000;
$t0 = [gettimeofday];
for($i = 0; $i < $n; ++$i) {
$str2 .= $str;
}
print tv_interval($t0)."\n";
$t0 = [gettimeofday];
for($i = 0; $i < $n; ++$i) {
$tmp = $str;
$str1 .= $tmp;
}
print tv_interval($t0)."\n";
D:\workspace\_Perl>perl str2.pl
18.218973
18.95373
Цитата: diesel_den
Ваш второй тест показал,
что Пёрл не произвёл очевидную оптимизацию.
что Пёрл не произвёл очевидную оптимизацию.
что вы имеете ввиду? =\\
Цитата: squirL
что вы имеете ввиду? =\\
ну он же мог понять, что не нужно на каждой итерации создавать
временную переменную с одним и тем же значением.
ну тогда бы это не была my переменная :)
вообще - правильнее было бы все объявления my вывести за цикл, чтобы они не уничтожались при каждой итерации, но тогда, боюсь, у меня бы быстро кончилась память
вообще - правильнее было бы все объявления my вывести за цикл, чтобы они не уничтожались при каждой итерации, но тогда, боюсь, у меня бы быстро кончилась память
Цитата: squirL
ну тогда бы это не была my переменная :)
вообще - правильнее было бы все объявления my вывести за цикл, чтобы они не уничтожались при каждой итерации, но тогда, боюсь, у меня бы быстро кончилась память
вообще - правильнее было бы все объявления my вывести за цикл, чтобы они не уничтожались при каждой итерации, но тогда, боюсь, у меня бы быстро кончилась память
думаете тогда при присвоении нового значения,
старое бы не удалялось из памяти ?
я имею ввиду переменную $str
Цитата: squirL
я имею ввиду переменную $str
если Вы про свой код, то там конечно мне непонятно,
почему переменная $str локальная в цикле.
в моём примере последняя операция в цикле накопительная
и производиться над нелокальной для цикла переменной.
чтобы не расходовать память. проверяем исключительно скорость конкатенации :)