Кто-нибудь знает, за счет чего 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% --
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
