Perl：包含變量值模式的字符串

Question

我在變量$ k_name中傳入各種名稱。我想查看一個字符串（$ txt_string）是否包含存儲在變量'$ k_name'中的名稱。我已經試過

代碼：

if ($string =~ /$k_name/) 
{ 
    print TXTFILE "Got Name: ".$k_name."\r\n"; 
} 

Answer 1

如果「包含」你的意思是一個真正的串，沒有必要對正則表達式，只需使用index：

if (-1 < index $txt_string, $k_name) { 
    print TXTFILE "Got name: $k_name.\n"; 
} 

確保$k_name不包含任何空格（最終換行符）。

順便說一句，你的示例代碼對我的作品爲以下值：

my $k_name = 'John'; 
my $txt_string = 'Joe Smith John Doe';