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

发布时间：2020-12-14 06:23:37 所属栏目：百科来源：网络整理

导读：为什么打印U而不是ü？ #!/usr/bin/env perluse 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 这

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!