in reply to New regex trick...

If this patch doesn't go through (and I can see reasons why it wouldn't, but I'd like it to go through), the same functionality can be achieved by my new module, Regexp::Keep. It's not on CPAN yet, but it's an XS module that does two things:
  1. filters regexes for the \K escape sequence, and turns them into (?{Regexp::Keep::KEEP})...
  2. and defines an XS function, KEEP(), that does what \K is supposed to do
Of course, constant-overloading is nasty, so I hope my patch is received well.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
Re: Re: New regex trick...
by mischief (Hermit) on Jul 24, 2002 at 13:00 UTC
    Can you post some benchmarks for the module? Or are the ones you posted above from the module (I'm assuming not).
[reply]
      Here's the code: 
      use Benchmark 'cmpthese';
use Regexp::Keep;
my $s = "abc.def.ghi.jkl";
cmpthese(-5, {
  japhy => sub { (my $x = $s) =~ s/.*\K\..*// },
  old   => sub { (my $x = $s) =~ s/(.*)\..*/$1/ },
});

      [download]
      In 5.6.1: 
      old   = 40280.54/s
japhy = 74338.79/s

      [download]
      And with 5.8.0 (using the module, NOT my patch): 
      old   =  58188.18/s
japhy = 102409.25/s

      [download]
      So there's an appreciable speed-up.

      _____________________________________________________
      Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
      s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

[reply]
[d/l]
[select]

In Section Meditations