07/10/18 14:27:32 UPSxQDmL0
ごきぶりほいほい
$ngnum = 0;
$ok = 1;
$ngnum++ if ($msg =~ /熊谷基地/);
$ngnum++ if ($msg =~ /セクハラ/);
$ngnum++ if ($msg =~ /WAF/);
$ngnum++ if ($msg =~ /ぴー/); <=実名のため削除
$ngnum++ if ($msg =~ /2曹/);
$ngnum++ if ($msg =~ /2教群/);
$ngnum++ if ($msg =~ /7中隊/);
$ok = 0 if (2 < $ngnum);
next if ($ok);
このあと抽出とか書き込み規制とか・・・