Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    use strict;
    ...
            double => \&double
        }
    );
    
  2. or download this
    $ perl bm_string_quoting.pl 2> /dev/null
               Rate single double
    single 476308/s     --    -1%
    double 481758/s     1%     --
    
  3. or download this
    #!/usr/bin/perl
    
    use strict;
    ...
            double => \&double
        }
    );
    
  4. or download this
    $ perl bm_string_quoting.pl 2> /dev/null
               Rate double single
    double 474650/s     --    -2%
    single 483537/s     2%     --
    
  5. or download this
    #!/usr/bin/perl
    
    use Benchmark qw(cmpthese);
    ...
            double => \&double
        }
    );
    
  6. or download this
    perl bm_string_quoting.pl 2> /dev/null
               Rate single double
    single 491116/s     --    -2%
    double 502236/s     2%     --
    
  7. or download this
    #!/usr/bin/perl
    
    use Benchmark qw(cmpthese);
    ...
        }
    );
    sub double { warn "This is a test"; }
    
  8. or download this
    $ perl bm_string_quoting.pl 2> /dev/null
               Rate double single
    double 449265/s     --    -7%
    single 481758/s     7%     --
    
  9. or download this
    #!/usr/bin/perl
    
    use Benchmark qw(cmpthese);
    ...
    );
    sub double { warn "This is a test"; }
    sub single { warn 'This is a test'; }
    
  10. or download this
    $ perl bm_string_quoting.pl 2> /dev/null
               Rate single double
    single 459485/s     --    -0%
    double 460340/s     0%     --