Re: Re: Optimizing existing Perl code (in practise)

[grep]

You should definately look into Benchmark. I was able to reduce your test down to this, and I get the CPU usage

use strict;
use Benchmark;

timethese(1500000,
          {
              'unpack' => 'unpack "H*", "abc"',
              'sprintf'  => 'sprintf "%x%x%x",ord("a"),ord("b"),ord("c
+")'
              }
          );

The Results:

Benchmark: timing 1500000 iterations of sprintf, unpack...
   sprintf:  0 wallclock secs ( 0.17 usr +  0.00 sys =  0.17 CPU) @ 88
+23529.41/s (n=1500000)
            (warning: too few iterations for a reliable count)
    unpack: 10 wallclock secs ( 9.87 usr +  0.01 sys =  9.88 CPU) @ 15
+1821.86/s (n=1500000)

ACCCK!!!Abigail-II caught me in a latenight brain seizure. I shoulda been tipped off by sprintf winning. :( ++Abigail-II

grep

Mynd you, mønk bites Kan be pretti nasti...