是否可以覆盖 Perl 中先前定义的正则表达式的区分大小写?例如,如果我有以下内容:
my $upper = qr/BLAH/x;
my $lower = qr/$upper/xi;
warn "blah" =~ $lower
我希望第三行打印出正匹配。
您可以添加/i
正则表达式如下:
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)/
.
这更多的是一个代码重用问题,所以我不必制作两个非常相似的正则表达式来测试大写或小写。
my $pat = 'BLAH';
my $re1 = qr/$pat/x;
my $re2 = qr/$pat/xi;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)