perl打印3個錯誤的字符，而不是unicode字符

Question

一直有打印功能的麻煩，我知道我錯過了一些小東西。我一直在尋找和嘗試的東西，但似乎無法找到解決方案。

我試圖在perl中打印盲文字符，我從表中獲取了2881的值並將其轉換爲hexa。當我嘗試打印十六進制字符時，perl會打印3個字符。

代碼：

#!/usr/local/bin/perl 
    use utf8; 
    print "\x{AF1}"; 

輸出：

C:\Users\ElizabethTosh\Desktop>perl testff.pl 
Wide character in print at testff.pl line 3. 
૱ 

Answer 1

如果您使用UTF-8字符，它顯示爲3個奇怪的字符，而不是1，這意味着該字符是範圍U + 0800到U + FFFF，並且您使用一些單字節編碼而不是UTF-8對其進行解碼。

因此，請將終端的編碼更改爲UTF-8。如果你不能做到這一點，將輸出重定向到一個文件：

perl testff.pl >file 

，並打開與支持UTF-8的文本編輯器中的文件，以查看是否顯示正確的字符。

---

要打印的字符U + 2881（⢁），而不是U + 0AF1。 2881已經是十六進制。

---

爲了擺脫Wide character in print警告，你的Perl程序的輸入和輸出設置爲UTF-8：

use open ':std', ':encoding(UTF-8)'; 

代替use utf8;，只允許程序文本的解讀UTF-8。

---

摘要

的源文件（testff.pl）：

#!/usr/local/bin/perl 
use strict; 
use warnings; 
use open ':std', ':encoding(UTF-8)'; 
print "\x{2881}"; 

運行：

> perl testff.pl 
⢁ 

Answer 2

問題1：你需要告訴Perl來爲輸出編碼你的終端。

將以下內容添加到您的程序中。

use Win32 qw(); 
use open ':std', ':encoding(cp'.Win32::GetConsoleOutputCP().')'; 

use utf8;僅僅指定了該源文件是使用UTF-8代替ASCII編碼。

---

問題＃2：您的終端可能無法處理該字符。

美英機器的控制檯可能期望cp437。它的字符集不包含任何盲文字符。

您可以嘗試使用chcp 65001切換到代碼頁65001（UTF-8）。您可能還需要將控制檯的字體切換爲包含盲文字符的字體。 （MS哥特爲我工作，雖然它的反斜槓奇怪的事情）。

---

問題＃3：你有錯誤的字符代碼。

• U+0AF1 GUJARATI RUPEE SIGN（＆＃x0AF1）："\x{AF1}"或"\N{U+0AF1}"或chr(2801)
• U+0B41 ORIYA VOWEL SIGN U（＆＃x0B41）："\x{B41}"或"\N{U+0B41}"或chr(2881)
• U+2801 BRAILLE PATTERN DOTS-1（＆＃x2801）："\x{2801}"或"\N{U+2801}"或chr(10241)
• U+2881 BRAILLE PATTERN DOTS-18（＆＃x2881;）："\x{2881}"或"\N{U+2881}"或chr(10369)

---

總之，

use strict; 
use warnings; 
use feature qw(say); 

use Win32 qw(); 
use open ':std', ':encoding(cp'.Win32::GetConsoleOutputCP().')'; 

say(chr($_)) for 0x2801, 0x2881; 

輸出：

>chcp 65001 
Active code page: 65001 

>perl a.pl 
⠁ 
⢁