如何检查一个数组的元素是否在另一个数组中？

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.