如何檢查一個數組的元素是否在另一個數組中？

Question

我有兩個數組，一個固定爲8個字母，另一個取決於用戶。我必須採取用戶輸入並放入一個數組（完成），但我需要檢查用戶輸入（它是一個字）字母在另一個數組中嗎？我該怎麼做 ？

Answer 1

您可以使用Perl的（v5.10 +）smartmatch運算符~~來檢查字符串是否是數組的一個元素。匹配是大小寫敏感的：

use strict; 
use warnings; 

my @words = map lc, qw/This is a test/; 

print 'Enter a word: '; 
chomp(my $entry = <>); 

print qq{The word "$entry" is} 
    . (lc $entry ~~ @words ? '' : ' not') 
    . ' in @words.' 

採樣運行：

Enter a word: This 
The word "This" is in @words.