Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
       concat => sub { my $ret; $ret .= $_ for @arr; return $ret; },
       join   => sub { my $ret = join q{}, @arr; return $ret; },
       } );
    
  2. or download this
    $ ./spw1003500
             Rate concat   join
    concat  994/s     --   -70%
    join   3310/s   233%     --
    $