Re^2: Multiple patterns match in a big file and track the counts of each pattern matched

[ansh007]

I tried this. It works, but it takes more than 3 and a half minutes. I guess because of grep, but i am not sure. Thanks for your time.

[choroba]

Yes, that's probably the reason.

What about embedded code?

my %matched;
my $i;
my $regex = join '|', map +($i++, "$_(?{\$matched{$i}++})")[1], map qu
+otemeta, @pat_array;

open my $LOG,'<', $InLogFilePath or die "can not open file :$!";

while (<$LOG>) {
    use re 'eval';
    chomp;
    /$regex/ if $. > $InStartLineNumber;
}
close $LOG;

for my $pattern (keys %matched) {
    print "$pattern\t$matched{$pattern}\n";
}