Perl'de karakterleri birleştiren bir dizeyi nasıl geri alabilirim?

Question

"re\x{0301}sume\x{0301}" dizesini aldım (bu şöyle yazdırılır: re & # x0301; sume & # x0301;) ve onu "e\x{0301}muse\x{0301}r" (e & # x0301; muse & # x0301; r) olarak değiştirmek istiyorum. reverse Perl'sini kullanamıyorum çünkü "\x{0301}" gibi karakterleri ayrı karakterler olarak birleştiriyor, bu yüzden "\x{0301}emus\x{0301}er" (& # x0301; emus & # x0301; er) almaktan vazgeçiyorum. Dizgiyi nasıl tersine çevirebilirim, ancak yine de birleştiren karakterlere saygı duyarım?

Answer 1

iyi cevap ben Chas örneğinin değiştirilmiş biraz as Sinan points out

---

, Unicode::GCString kullanmaktır:

• "Baskıda geniş karakter" uyarılarından kaçınmak için STDOUT'daki kodlamayı ayarlayın; Temelde tweaks bir çift ile aynı şey

(görünüşte, 5.10 sonra çalışmaz, bu yüzden kaldırıldı) split bir pozitif ileri yönlü onaylama işlemi (ve hiçbir ayırıcı tutma modu) kullanın.

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

Sen join sonra \X special escape grafemler listesini (aralarında boş dizeleri ile) grafemler bir listesini yapmak için split ile (non-birleştirerek karakter ve aşağıdaki birleştirerek tüm karakterlerle eşleştiğinde) ters onları geri kullanabilirsiniz birlikte:

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

Diğer yanıtların bazıları iyi çalışmayan öğeler içerir. İşte Perl 5.12 ve 5.14 üzerinde test edilmiş bir çalışma örneğidir. Binmode belirtilememesi, çıktının hata mesajları üretmesine neden olur. Bölme içinde pozitif bir göz atma iddiası (ve ayırıcı tutma modu yok) kullanmak, Macbook'umda çıktının yanlış olmasına neden olur.

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

Sen Unicode::GCString kullanabilirsiniz: Unicode Standard tarafından tanımlanan genişletilmiş sesletim kümelerinden oluşan bir dizi [UAX # 29] 29. Ek olarak

Unicode :: GCString Unicode dize davranır.

#!/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"; 

Çıktı: karıştı olanlar için

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