Регулярное выражение Perl с подвыражением, содержащим .*, работает медленно в Oracle linux9 с Perl 5.32.1 ⇐ Linux

[Anonymous]

Код: Выделить всё

ts-utc!=!2024-12-26T05:38:54.649609!;!alertCount!=!0!;!alertIdName!=!TEST!;!nodeType!=!NA!;!pid!=!4091773!;!portNo!=!NA!;!location!=!A29223!;!errorMsg!=!NOT!;!

Выше показан входной файл для сценария perl ниже, который отлично работает на CetOs7 Perl 5.20, но запуск того же сценария на Oracle Linux9 Perl 5.32 занимает более 1 минуты. Требуется помощь в ускорении работы скрипта.

Код: Выделить всё

#!/usr/bin/perl
#
$file='test.xml';
$aMatchString='(?=.*location!=!A2923!)(?=.*!errorMsg!=!TESTING)';

while () {
# check if the string from the file matches
if ($_ =~ m/$aMatchString/) {
print "NIRAJ NO";
print $_;
}
else {
print "skipped";
}
}

Спасибо
Нирадж Рати

Подробнее здесь: https://stackoverflow.com/questions/793 ... linux9-wit