是否有可能覆盖Perl中先前定义的正则表达式的区分大小写？例如,如果我有以下内容：
my $upper = qr/BLAH/x; my $lower = qr/$upper/xi; warn "blah" =~ $lower
我希望第三行打印出一个积极的匹配.
解决方法
您可以将/ i添加到regexp,如下所示：
use re qw( is_regexp regexp_pattern );
sub make_re_case_insensitive {
my ($re) = @_;
return "(?i:$re)" if !is_regexp($re);
my ($pat,$mods) = regexp_pattern($re);
if ($mods !~ /i/) {
$re = eval('qr/$pat/'.$mods.'i')
or die($@);
}
return $re;
}
但这不会影响qr /(？ – i：BLAH)/.
@H_502_14@This is more of a code reuse question,so I don’t have to make two very similar regex that test either uppercase or lowercase.
my $pat = 'BLAH'; my $re1 = qr/$pat/x; my $re2 = qr/$pat/xi;