是否有可能覆盖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)/.
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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。