如何反转包含Perl中的字符组合的字符串？

Question

我有字符串"re\x{0301}sume\x{0301}"(打印方式如下:简历),我想将其转换为"e\x{0301}muse\x{0301}r"(émusér).我不能使用Perl,reverse因为它将字符组合"\x{0301}"成单独的字符,所以我最终得到了"\x{0301}emus\x{0301}er"(emuśer).如何反转字符串,但仍然尊重组合字符？

Answer 1

您可以使用\ X特殊转义(匹配非组合字符和以下所有组合字符)split来制作字形列表(它们之间有空字符串),反转字形列表,然后将join它们重新组合在一起:

#!/usr/bin/perl

use strict;
use warnings;

my $original = "re\x{0301}sume\x{0301}";
my $wrong    = reverse $original;
my $right    = join '', reverse split /(\X)/, $original;
print "original: $original\n",
      "wrong:    $wrong\n",
      "right:    $right\n";

Answer 2

最好的答案就是使用Unicode的:: GCString,为思南指出

我稍微修改了Chas的例子:

• 在STDOUT上设置编码以避免"打印中的宽字符"警告;
• 使用正向前瞻断言(并且没有分隔符保留模式)split(在5.10之后不起作用,显然,所以我删除了它)

通过几次调整,它基本上是相同的.

use strict;
use warnings;

binmode STDOUT, ":utf8";

my $original = "re\x{0301}sume\x{0301}";
my $wrong    = reverse $original;
my $right    = join '', reverse split /(\X)/, $original;

print <<HERE;
original: [$original]
   wrong: [$wrong]
   right: [$right]
HERE