arrays - ある配列の要素が別の配列にあるかどうかを確認するにはどうすればよいですか?

Question

私は 2 つの配列を持っています。1 つは 8 文字に修正され、もう 1 つはユーザーによって異なります。ユーザー入力を取得して配列に入れる必要があります（完了）が、ユーザー入力（単語）の文字が他の配列にあるかどうかを確認する必要がありますか？どうすればできますか？

Answer 1

Perl の (v5.10+) スマートマッチ演算子~~を使用して、文字列が配列の要素であるかどうかを確認できます。マッチングでは大文字と小文字が区別されます。

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.