Re: Slow Regex - How to Optimize

[Anonymous Monk]

I'd try a non-greedy quantifier...

if ( $line =~ /[^a-zA-Z]$sub[^a-zA-Z]*?\(/ ) {

...and maybe a more generic subroutine finder...

foreach my $line ( @sub_code ) 
{
    if ($line =~ /[^a-zA-Z]([a-zA-Z_]+[a-zA-Z_0-9]*)[^a-zA-Z]*\(/
        and exists $SUBS{$1}) 
    { push @subs, $key }
}