как проверить несколько подстроки в строке в Perl

Question

У меня есть входной файл, который я читаю в хэш-таблицу, файл ввода, как показано ниже

MANAGEMENT=IDL 
NORTH=IDL,NORTHERN||VIDL,NORTH||IDL,NORTH 
SOUTH=IDL,SOUTHERN||CIDL,SOUTH 

Теперь для каждого ключа я должен проверить, если другой строка сказать экземпляр (Это также строка) содержит значение то есть для NORTH

Condition= TRUE if 
$instance contains (IDL AND NORTHERN) OR (VIDL AND NORTH) OR (IDL AND NORTH) 

Обратите внимание, что значение может много таких ИЛИ условия

у меня есть такие 15000 экземпляров, против которых я должен сравнить для каждого значения требуется быстрый метод.

Я думал о переходе значения в функцию, которая будет возвращать регулярное выражение, против которого я могу проверить, но не был в состоянии думать о таком (Я новый пчела в Perl)

Цените помощь или лучшие предложения

Answer 1

Возможно, вы можете создать несколько хеш-карт для своих индексов. То есть, построить %IDL, %NORTH и %NORTHERN. В каждом из этих хэш-карт будет присутствовать строка, если она содержит соответствующую подстроку. Таким образом, ваша оценка для строки $s становится:

$IDL{$s} && $NORTHERN{$s} || $IDL{$s} && $NORTH{$s} 

Конечно, это условие может быть сокращен до:

$IDL{$s} && ($NORTHERN{$s} || $NORTH{$s}) 

Answer 2

С очень мало меня пойти на здесь, я бы сказал, что ты мог бы сделать:

if ($instance =~ /(?=.*idl)(?=.*north(?:ern)?/) { 
    print "$instance\n"; 
} 

В приведенном выше коде я использую утверждение lookahead. То, что он говорит, соответствует любой строке, содержащей как IDL, так и NORTHERN.