विशेष वर्णों को यूटीएफ -8 में कैसे परिवर्तित करें?

Question

जब मैं एक MySQL डेटाबेस से डेटा निकालता हूं, तो कुछ आउटपुट में विशेष वर्ण होते हैं, उदा। emacs यह \240 और \346 को डीकोड करता है।

जब एक UTF-8 टर्मिनल में दिखाया गया है, विशेष वर्ण केवल चरित्र प्रति 1 बाइट का उपयोग करने के रूप में �

तो इस्तेमाल किया एन्कोडिंग तेजी दिखाया गया है।

मैं उदा। देखें कि \346æ होना चाहिए।

प्रश्न

करता पर्ल एक मॉड्यूल कि UTF-8 के लिए इन विशेष वर्ण सांकेतिक शब्दों में बदलना कर सकते हैं?

Answer 1

अपने डेटा को पर्ल के आंतरिक प्रारूप में जो भी एन्कोडिंग से डीकोड करने के लिए Encode::decode का उपयोग करें।

फिर, फ़ाइल में डेटा लिखते समय, 'utf8' परत को यूटीएफ -8 में डेटा लिखने के लिए सेट करें।

use Encode; 

my $data_from_database = ...; 

my $perl_data = decode('ISO-8859-1', $data_from_database); 

binmode STDOUT, ':utf8'; 

print $perl_data;