Perlについての質問箱 34箱目

Perlについての質問箱 34箱目at TECH

Perlについての質問箱 34箱目 - 暇つぶし2ch182:デフォルトの名無しさん
08/01/26 21:41:02
>>180
my $regex = join '|', map quotemeta, @prohibit;
if ($_ !~ /$regex/) { ...