perl僅與數組列表匹配整個單詞

Question

我需要能夠將用戶與用戶列表進行匹配，但只能匹配完全匹配。 在下面的代碼示例中：
- 如果strUser包含「info」，則表示匹配，這很好。
- 如果strUser包含「theinfo」或「infostuff」，則表示匹配不成功。
我無法使用\ b修飾符，因爲變量將只包含用戶名，不包含空格或單詞邊界。

#!/usr/bin/perl 
$strUser = "theinfo"; 
$strUsers = "(alpha|info|omega)"; 
if ($strUser =~ /$strUsers/) { 
print "match\n"; 
} 
exit(0); 

Answer 1

使用邊界您正則表達式^和\z內：

if ($strUser =~ /^$strUsers\z/) { 

注意，因爲你可能想用文字字符串上班，我會投入更多的精力投入到使用quotemeta構建你的正則表達式：

#!/usr/bin/perl 
use strict; 
use warnings; 

my $strUser = "theinfo"; 

my @users = qw(alpha info omega); 

my $list_users_re = join '|', map {quotemeta} @users; 

if ($strUser =~ /^($list_users_re)\z/) { 
    print "match\n"; 
} 

exit(0); 

然而，一種更簡單的解決方案，因爲你正在尋找精確的匹配，僅僅是使用哈希：

my @users = qw(alpha info omega); 

my %is_user = map { $_ => 1 } @users; 

if ($is_user{$strUser}) { 
    print "match\n"; 
} 

最後，總是包括use strict;，並在每perl腳本use warnings。