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

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.