ग्रैफेम पाने का सही तरीका क्या है?

Question

यह 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 

Answer 1

यह मेरे लिए काम करता है, हालांकि मैं पर्ल, 5.012 के एक पुराने संस्करण है, ubuntu पर। अपनी स्क्रिप्ट मेरे ही परिवर्तन है: use 5.012;

$ perl so.pl 
Ü 

Answer 2

मेरा सुझाव है मई यह उत्पादन जो सही नहीं है क्या है? यह जांचना आसान है: अपने लूप कोड को प्रतिस्थापित करें:

my $counter; 
while ($string =~ /(\X)/g) { 
    say ++$counter, ': ', $1; 
} 

... और देखें कि रेगेक्स कितनी बार मेल खाएगा। मेरा अनुमान है कि यह अभी भी एक बार मैच होगा।

वैकल्पिक रूप से, आप इस कोड का उपयोग कर सकते हैं:

use Encode; 
sub codepoint_hex { 
    sprintf "%04x", ord Encode::decode("UTF-8", shift); 
} 

... और फिर, जबकि पाश के भीतर बजाय सादे $ 1 का codepoint_hex ($ 1) मुद्रित करें।

Answer 3

1) जाहिर है, आपका टर्मिनल विस्तारित वर्ण प्रदर्शित नहीं कर सकता है। मेरी टर्मिनल पर, यह प्रिंट:

U¨ 

2)\X आप क्या सोचते हैं यह करता है नहीं करता है। यह केवल उन पात्रों का चयन करता है जो एक साथ जाते हैं।

f 
u¨ 
r 

नोट कैसे विशेषक चिह्न अकेले मुद्रित नहीं है, लेकिन उसके संगत चरित्र के साथ: यदि आप स्ट्रिंग "fu\N{COMBINING DIAERESIS}r", अपने कार्यक्रम को प्रदर्शित करता है का उपयोग करते हैं।

3) एक में सभी संबंधित पात्रों गठबंधन करने के लिए, मॉड्यूल Unicode::Normalize का उपयोग करें:

use Unicode::Normalize; 

my $string = "fu\N{COMBINING DIAERESIS}r"; 
$string = NFC($string); 

while ($string =~ /(\X)/g) { 
    say $1; 
} 

यह प्रदर्शित करता है:

f 
ü 
r 

Answer 4

आपका कोड सही है।

आपको इन चीजों को संख्याओं से चलाने की ज़रूरत है; भरोसा न करें कि "टर्मिनल" प्रदर्शित करता है। इसे the uniquote program के माध्यम से पाइप करें, शायद -x या -v के साथ, और देखें कि यह वास्तव में क्या कर रहा है।

आंखें धोखा देती हैं, और कार्यक्रम भी बदतर होते हैं। आपका टर्मिनल प्रोग्राम छोटी है, इसलिए आपसे झूठ बोल रही है। सामान्यीकरण कोई फर्क नहीं पड़ता।

$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say "crème brûlée"' 
crème brûlée 
$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say "crème brûlée"' | uniquote -x 
cr\x{E8}me br\x{FB}l\x{E9}e 
$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say NFD "crème brûlée"' 
crème brûlée 
$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say NFD "crème brûlée"' | uniquote -x 
cre\x{300}me bru\x{302}le\x{301}e 

$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say NFC scalar reverse NFD "crème brûlée"' 
éel̂urb em̀erc 
$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say NFC scalar reverse NFD "crème brûlée")' | uniquote -x 
\x{E9}el\x{302}urb em\x{300}erc 
$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say scalar reverse NFD "crème brûlée"' 
éel̂urb em̀erc 
$ perl -CS -Mutf8 -MUnicode::Normalize -E 'say scalar reverse NFD "crème brûlée"' | uniquote -x 
e\x{301}el\x{302}urb em\x{300}erc