perl - Perl スカラーに配列内の要素の 1 つが含まれているかどうかを確認する

Question

私は配列を持っています

my @array = qw/FOO BAR BAZ/;

および次のようなデータを含むファイルから読み取ったスカラー

+++123++585+++FOO

また

+++589++458+++XYZ

配列の要素が入力文字列の一部と一致するかどうかを確認する良い方法を探しています。

配列をループしてその方法で一致させることができることは知っていますが、もっとperlのような方法があるかどうか疑問に思っていました.

Answer 1

@array のすべてに一致する正規表現を作成できます。

my $regex = join '|', map quotemeta, @array;
$string =~ $regex;