Size: a a a

2021 October 10

И

Игорь in Modern::Perl
Оно у меня, судя по диспетчеру, камень даже на 50% не загружает в пике. И результаты с разбросом огромным. Второй раз запустил и получил:
               Rate   svref    utf8   bytes already
svref     4071762/s      --    -79%    -90%    -96%
utf8     19486810/s    379%      --    -52%    -83%
bytes    40777955/s    901%    109%      --    -64%
already 114019915/s   2700%    485%    180%      --


Поэтому вообще не показатель))
источник

AT

Artem Tepponen in Modern::Perl
perl -MBenchmark=/./ -Iblib/arch -Iblib/lib -Ilib -MB=svref_2object -Mstrict -Mwarnings -Mutf8 -CSD -le 'my ($in, $out) = q(привет); cmpthese -2 => { bytes => sub { {use bytes; $out = length $in } }, utf8 => sub { $out = utf8::upgrade($in) }, encode => sub { use Encode q(encode); $out = length(encode(q(UTF-8), $in)) }, svref => sub { $out = svref_2object(\$in)->CUR }, }'
            Rate encode  svref   utf8  bytes
encode   771009/s     --   -88%   -98%   -99%
svref   6401186/s   730%     --   -81%   -92%
utf8   34177532/s  4333%   434%     --   -55%
bytes  75629765/s  9709%  1081%   121%     --
источник

SZ

Sergey Zhmylove in Modern::Perl
Ну естественно, у тебя ж наверное не 2 ядра, да?)
источник

AT

Artem Tepponen in Modern::Perl
Нихера не понимаю 🙂
источник

AT

Artem Tepponen in Modern::Perl
Какая разница, тут однопоток
источник

SZ

Sergey Zhmylove in Modern::Perl
Спасибо
источник

SZ

Sergey Zhmylove in Modern::Perl
Ну вот, в том и суть
источник

VV

Vladimir Varlamov in Modern::Perl
я так делаю чтобы понимать на чём работаю:
time perl -E 'for(1..500_000_000){}'
источник

AT

Artem Tepponen in Modern::Perl
Я просто на бареметал idle машинке с LA=0 проверяю, тут не должно быть сильного дрожания
источник

SZ

Sergey Zhmylove in Modern::Perl
И тут перл такой понимает, что у тебя пустой цикл в void контексте и выполняется мгновенно..? :))
источник

VV

Vladimir Varlamov in Modern::Perl
не понимает пока что)
источник

И

Игорь in Modern::Perl
эм..тогда грузит даже сильно хорошо, если я правильно понял о чем ты. Т.к. ядра 4.

Но вообще да, тупанул. На 100% он и не загрузит.
источник

AT

Artem Tepponen in Modern::Perl
v5.16.3
real 0m6.712s
v5.34.0
real 0m3.861s
источник

A

Alexander in Modern::Perl
у меня на ноутбучном
Intel(R) Core(TM) i7-10750H CPU @ 2.60GHz
получилось вот так
svref    3389792/s      --    -82%    -87%    -94%
utf8    19309775/s    470%      --    -25%    -65%
bytes   25664447/s    657%     33%      --    -53%
already 55050239/s   1524%    185%    114%      --
источник

A

Alexander in Modern::Perl
$ lsb_release -a
No LSB modules are available.
Distributor ID:  Linuxmint
Description:  Linux Mint 20.2
Release:  20.2
Codename:  uma
источник

AT

Artem Tepponen in Modern::Perl
Ну тут норм. Ни у кого свежих старших ксеонов нет под рукой?
источник

SZ

Sergey Zhmylove in Modern::Perl
Перл работает в 1 поток.
Так что при, например, 8 ядрах, он не загрузит больше чем на 12%
источник

DF

Denis F in Modern::Perl
У меня только 2620 есть :)
источник

VG

Vadim Goncharov in Modern::Perl
можно запустить восемь перлов!
источник

VG

Vadim Goncharov in Modern::Perl
или с тредами собрать (что много где дефолт)
источник