为什么打印U而不是Ü？
#!/usr/bin/env perl
use warnings;
use 5.014;
use utf8;
binmode STDOUT,':utf8';
use charnames qw(:full);
my $string = "\N{LATIN CAPITAL LETTER U}\N{COMBINING DIAERESIS}";
while ( $string =~ /(\X)/g ) {
say $1;
}
# Output: U
这对我有用,虽然我在ubuntu上有一个旧版本的perl,5.012.我对您的脚本的唯一更改是：使用5.012;
原文链接：https://www.f2er.com/regex/356826.html$perl so.pl Ü
