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

[PEF Secure]

On Tuesday, March 10, 2015 17:03:36 Andrey Kovbovich wrote:
> Кто-нибудь знает, за счет чего 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%     --

selfcat => sub {my$z=$x; $z.=$b;}

вот примерный аналог твоего substr

-- 
PEF Developer