[Moscow.pm] Быстрая конкатенация строк

[Andrey Kovbovich]

Кто-нибудь знает, за счет чего substr быстрее?

$ perl -MBenchmark=cmpthese
-wE'my$x="0"x1_000_000;my$b="1"x100_000;cmpthese(10000,{concat=>sub{my$z=$x.$b;},substr=>sub{my$z="";substr$z,(length$z),(length$x),$x;substr$z,(length$z),(length$b),$b;},join=>sub{my$z=join("",$x,$b)}});'
         Rate   join concat substr
join   3922/s     --    -0%   -58%
concat 3937/s     0%     --   -57%
substr 9259/s   136%   135%     --
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20150310/4c645ac6/attachment.html>