ユニコードを\ uXXXX形式で扱うには？

Question

テキストがある場合：

私は明らかにいくつかのアポストロフィで\u0027に対処するにはどうすればよい

「CONSEILデ・デ・L \ u0027Ordreデ規律がprofessionnels 同意ケベックをcomptables」ソート。これを読み込み可能な文字に変換するにはどうすればよいですか？

データはJSONから届きます。

Answer 1

use utf8; 
use JSON::XS; 
use open OUT => ':utf8'; 
my $decoder = JSON::XS->new->allow_nonref(1); 
my $json_string = '"Conseil de discipline de l\\u0027Ordre des comptables professionnels agréés du Québec"'; 
printf "in: %s\nout: %s\n", $json_string, $decoder->decode($json_string); 

私のために働く。確かにあなたは、いくつかの二重エンコードされた文字列を持っていない場合は、あなたができる

を（使用UTF8はallow_nonref単なる文字列ではなく、オブジェクトまたは配列を解読するために必要な、perlのソースにリテラルのUTF8のために必要）：

$string =~ s/\\u([[:xdigit:]]{4})/chr hex $1/g;