in reply to Slow Regex - How to Optimize
You code causes the regex to be recompiled each time round the inner loop.
A slight rearrangement should improve things:
foreach my $sub ( keys %SUBS ) { my $re = qr/[^a-zA-Z]$sub[^a-zA-Z]*\(/; foreach my $line ( @sub_code ) { if ( $line =~ $re ) { push( @subs, $key ) } } }
Dave.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Slow Regex - How to Optimize
by ikegami (Patriarch) on Aug 30, 2005 at 22:05 UTC | |
Re^2: Slow Regex - How to Optimize
by Anonymous Monk on Mar 11, 2016 at 14:14 UTC |
In Section
Seekers of Perl Wisdom