Làm cách nào để đảo ngược chuỗi có chứa các ký tự kết hợp trong Perl?

Question

Tôi có chuỗi "re\x{0301}sume\x{0301}" (in như thế này: re & # x0301; sume & # x0301;) và tôi muốn đảo ngược nó thành "e\x{0301}muse\x{0301}r" (e & # x0301; muse & # x0301; r). Tôi không thể sử dụng số reverse của Perl vì nó xử lý các ký tự kết hợp như "\x{0301}" làm các ký tự riêng biệt, vì vậy, tôi sẽ nhận được "\x{0301}emus\x{0301}er" (& # x0301; emus & # x0301; er). Làm thế nào tôi có thể đảo ngược chuỗi, nhưng vẫn tôn trọng các ký tự kết hợp?

Answer 1

Câu trả lời tốt nhất là sử dụng Unicode::GCString, as Sinan points out

---

tôi sửa đổi dụ Chas của một chút:

• Đặt mã hóa trên STDOUT để tránh cảnh báo "ký tự in rộng";
• Sử dụng một sự khẳng định lookahead tích cực (và không có chế độ giữ separator) trong split (không hoạt động sau 5.10, rõ ràng, vì vậy tôi loại bỏ nó)

Đó là cơ bản điều tương tự với một số điều chỉnh.

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 

Answer 2

Bạn có thể sử dụng \X special escape (phù hợp với một ký tự kết hợp không và tất cả các nhân vật kết hợp sau đây) với split để tạo ra một danh sách các graphemes (với chuỗi rỗng giữa chúng), đảo ngược danh sách các graphemes, sau đó join chúng trở lại với nhau:

#!/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 3

Một số câu trả lời khác chứa các thành phần không hoạt động tốt. Đây là một ví dụ làm việc được kiểm tra trên Perl 5.12 và 5.14. Việc không chỉ định binmode sẽ làm cho đầu ra tạo ra các thông báo lỗi. Sử dụng xác nhận lookahead tích cực (và không có chế độ lưu giữ dấu tách) trong phần chia sẽ làm cho đầu ra không chính xác trên Macbook của tôi.

#!/usr/bin/perl 

use strict; 
use warnings; 
use feature 'unicode_strings'; 

binmode STDOUT, ":utf8"; 

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 4

Bạn có thể sử dụng Unicode::GCString:

Unicode :: GCString đối xử với Unicode chuỗi như một chuỗi các cụm grapheme mở rộng được xác định bởi Unicode chuẩn Phụ lụC# 29 [UAX # 29].

#!/usr/bin/env perl 

use utf8; 
use strict; 
use warnings; 
use feature 'say'; 
use open qw(:std :utf8); 

use Unicode::GCString; 

my $x = "re\x{0301}sume\x{0301}"; 
my $y = Unicode::GCString->new($x); 
my $wrong = reverse $x; 
my $correct = join '', reverse @{ $y->as_arrayref }; 

say "$x -> $wrong"; 
say "$y -> $correct"; 

Output:

résumé -> ́emuśer 
résumé -> émusér