Всего соответствие слова с неожиданной вставкой в ​​данных

Question

У меня есть строка рассмотреть

my $string = 'String need to be evaluated'; 

в $string Я ищу оцененный или любое другое слово. Проблема заключается в их вставке из некоторых тегов в строку например. Str<data>ing need to be eval<data>ua<data>ted это неожиданно. В этом случае, как я мог искать слова?

вот код, который я попробовал:

my $string = 'Text to be evaluated'; 

my $string2 = "Te<data>xt need to be eval<data2>ua<data>ted"; 
# patten to match 
$pattern = "evaluated"; 

@b = split('',$pattern); 

for my $i(@b){ 
    $i="$i"."\(?:<data>\)?"; 
    print "$i#\n"; 
} 
$pattern = join('',@b); 

print "\n$pattern\n"; 

if ($string2 =~ /$pattern/){ 
    print "$pattern found\n"; 
} 

ли вы предложить какой-либо другой метод или модуль, чтобы сделать его легко? Я не знаю, какие данные будут вставлены.

Answer 1

Не уверен, если это то, что вам нужно, но как насчет

@b = split('',$pattern); 

for my $i(@b){ 
    $i=$i.".*"; 
    print "$i \n"; 
} 
$pattern = join('',@b); 

Это должно соответствовать любой строке, которая имела шаблон прежде чем он получит случайные вставки, если символы шаблона все еще существуют и находятся в правильном порядке. Он найдет evaluated в строке esouhgvw8vwrg355#*asrgl/\u[\w]atet(45)<data>efdvd, что примерно так же шумно, как и получается. Но, конечно, если невозможно отличить вставку и исходную строку, вы получите «ложные» положительные результаты. Например, если строка была evaluted, и она станет чем-то вроде evalu<hereisyourmissinga>ted, вы получите положительный результат. Конечно, если бы вы знали, что вставки всегда будут в тегах, а текст - нет, пользователи ответят гораздо безопаснее.

До тех пор, пока вы укажете свою строку ввода, символы, такие как [\ w] (45), и то, что еще не должно повредить. Я не понимаю, почему они будут интерполированы в любой момент.

Answer 2

Конечно, вы могли бы использовать регулярное выражение, чтобы сделать работу:

foreach my $s ($string,$string2){ 
    my $cs= $s; 
    ### canonize 
    $cs =~ s!<[^>]*>!!gs; 
    ### match 
    if ($cs =~ m!$pattern!i){ 
     print "Found $pattern in $s!\n"; 
    }   
}