oh yeah, one thing I should've added to boost speed. If you found a match no need to keep looking, thus add the last statement
 
        if ($line =~ /$string/i)
        {
            print "$file MATCHES!!!\n"; # or whatever you wish to do with this 
        last; 
        }
 
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to