使用Perl匹配区分大小写

Question

这是Perl脚本：

my $keyword = qr/(abc|efg|xyz)/;

$subject = "ABC";
$messageBody = "ZYZ";

if ( grep{ /${keyword}/i } ( $messageBody, $subject ) ) {
    print "subject: $subject, messageBody:$messageBody \n";
}

如何匹配区分大小写？它不适用于＆＃34; ABC＆＃34;但它适用于＆＃34; abc＆＃34;。

请帮忙。提前谢谢。

Answer 1

只需省略/i正则表达式开关，

if ( grep{ /$keyword/ } $messageBody, $subject ) {

Answer 2

添加不区分大小写的修饰符

my $keyword = qr/(?i)(abc|efg|xyz)/;