Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w

...

TEST: I +like : cheese
  2. or download this
    ...
'myway' => sub {
...
    while (/%[0-9A-Fa-f]{2}/) {
       $_ = $&;
...
  3. or download this
    Benchmark: timing 500000 iterations of myway, regexpway...
     myway: 162 wallclock secs (162.07 usr +  0.00 sys = 162.07 CPU)
 regexpway: 58 wallclock secs (58.52 usr +  0.01 sys = 58.53 CPU)