正则表达式 – 获得字形的正确方法是什么？

为什么打印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;

$perl so.pl 
Ü

原文地址：https://www.jb51.cc/regex/356826.html