我在Perl中编写了一个简单的脚本，以检查字符串中昵称的不同字形（英语和俄语）。我将使用下一个正则表达式：/(gunn?er|gunn?|ганн?еру?|ганн?у?)/i-根据regex101.com测试和Notepad ++ ，这是有效的。但是，在Perl的计算机上，除非我在?和|：上加上括号，否则该正则表达式将不起作用/((gun(n)?er)|(gun(n)?)|(ган(н)?ер(у)?)|(ган(н)?(у)?)/i。我问过这个问题的朋友无法重现此行为。我应该更改脚本或Perl解释器本身的某种设置吗？
编辑：根据要求，我的测试代码：
#!/usr/bin/perl
my $GUN = "gunner";
my $HZ = "!!!";
sub GetNickFromMsg
{
my ($msg) = @_;
if ( $msg =~ /(gunn?er|gunn?|ганн?еру?|ганн?у?)/i )
{
return $GUN
}
return $HZ;
}
my @nicks = ("Gunner", "guner", "ганнер", "ганеру", "гану");
foreach $n (@nicks)
{
my $res = GetNickFromMsg($n);
print "$n -> $res\n");
}
我得到的输出：
Gunner -> !!!
guner -> !!!
ганнер -> !!!
ганеру -> !!!
гану -> !!!
如果我将正则表达式更改为带有括号的第二个版本，则每个字形的输出均应为“-> gunner”。我尝试将其添加use feature 'unicode_strings'到脚本的开头，并按Casimir的假设使用ui而不是i修饰符，但这没有帮助。
我在Linux version 4.3.0-1-amd64 ([email protected]) (gcc version 5.3.1 20160101 (Debian 5.3.1-5) ) #1 SMP Debian 4.3.3-5 (2016-01-04)带有Perl版本5.22.1的Linux服务器上启动脚本
您需要use utf8在程序顶部添加以指定您的程序代码使用UTF-8编码的字符
您还需要将STDOUT设置为处理UTF-8编码，否则会收到Wide character in print警告
这是程序的编辑版本，可以正常运行并提供您期望的行为
#!/usr/bin/perl
use utf8;
use strict;
use warnings 'all';
use open qw/ :std :encoding(UTF-8) /;
my $GUN = 'gunner';
my $HZ = '!!!';
sub GetNickFromMsg {
my ($msg) = @_;
if ( $msg =~ /(gunn?er|gunn?|ганн?еру?|ганн?у?)/i ) {
return $GUN;
}
return $HZ;
}
my @nicks = qw/ Gunner guner ганнер ганеру гану /;
foreach my $n (@nicks) {
my $res = GetNickFromMsg($n);
print "$n -> $res\n";
}
Gunner -> gunner
guner -> gunner
ганнер -> gunner
ганеру -> gunner
гану -> gunner
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句