Найти только точную строку

Question

Я пытаюсь найти строку внутри строки с Perl. Например:

str = "Hi sir, No data was received" 
strtofind = "No data was received" 

Я использую:

if(index($str,$strtofind) != -1) 

Но если сценарий получит другой вход, как: "Hi sir, No data sent" он соответствует тоже (No data).

Как установить ИСТИННЫЙ, если только он соответствует всем strtofind?

Answer 1

Вы можете сделать это с помощью \Q и \E операторов:

my $str = "Hi sir, No data was received"; 
my $strtofind = "No data was received"; 
if ($str =~ /\Q$strtofind\E/) 
{ 
    print "Match\n"; 
} 

Answer 2

Код, который вы дали ведет себя таким образом

DB<4> $str="Hi sir, No data was received" 

    DB<5> $strtofind="No data was received" 

    DB<6> $str2="Hi sir, no data sent" 

    DB<7> print index($str,$strtofind) 
8 
    DB<8> print index($str2,$strtofind) 
-1 

Который является правильно в соответствии с вашими требованиями. Если у вас возникли проблемы, это не с подбором, это в другом месте