comment on

use Benchmark;

my $tests = [qw(these are a few test to try
                andaverylongteststring
                acoupleoftimesover
                xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xxxxxxxxxxxxxxxxxxxxxxxxxx
                zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
+zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
zzzzzzzzzzzzzzzzzzzzzzzzzzzzz)];

timethese (100000, {
NoOpLoop =>
sub {
  for my $test (@$tests) {
    # NO Op Loop
  }
},
regex1 =>
sub {
  for my $test (@$tests) {
    $test=~s/^(.*)(.)$/\L$1\U$2/;
  }
},
substr =>
sub {
  for my $test (@$tests) {
    $test= lc(substr($test, 0, length($test)-1))
           . uc(substr($test, -1, 1));
  }
},
reverse=>
sub {
  for my $test (@$tests) {
    $test=reverse ucfirst lc reverse $test;
  }
}
});
[download]

and the winner is :-

Benchmark: timing 100000 iterations of NoOpLoop, regex1, reverse, subs
+tr...
  NoOpLoop:  2 wallclock secs ( 1.86 usr +  0.00 sys =  1.86 CPU) 
             @ 53763.44/s (n=100000)
    regex1: 82 wallclock secs (30.31 usr +  0.01 sys = 30.32 CPU) 
             @ 3298.15/s (n=100000)
   reverse:  8 wallclock secs ( 7.40 usr +  0.00 sys =  7.40 CPU) 
             @ 13513.51/s (n=100000)
    substr:  8 wallclock secs ( 8.51 usr +  0.01 sys =  8.52 CPU) 
             @ 11737.09/s (n=100000)
[download]

Interesting: double reverse seamed the best but as always test on real data!!

Hope it helps
UnderMine

In reply to Re: Re: Re: Implement uclast with a regex by UnderMine
in thread Implement uclast with a regex by Anonymous Monk

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl-Sensitive Sunglasses
	PerlMonks