Как я могу вставить китайские иероглифы в мой источник Perl?

Question

В моем скрипте мне нужно "qw" из китайского символа в строку. когда я запускаю скрипт, Perl заявляет, что в скрипте есть нераспознанный символ. Хотя я знаю, что это должно быть связано с кодированием связанных вещей, но я не знаю, как это решить. так что обращайтесь к вам за помощью.

спасибо заранее.

Answer 1

Встраивание литеральных строк в исходный код Perl легко. Используйте прагму utf8. ( Не используйте encoding прагму , это очень проблематично.)

use utf8;
my $perl_string = '你好，张ＨＹ';

Ваш текстовый редактор также должен сохранить этот файл как UTF-8.

Затем, если вы хотите вывести строки Perl, вы должны сначала их кодировать, см. perlunitut и perlunifaq .

use Encode qw(encode);
use Encode::HanExtra;
# for example, printing to STDOUT

print encode('UTF-8', $perl_string); # in a Linux environment
print encode('GB18030', $perl_string); # in a Windows environment

Я также хочу сообщить вам, что с 2006 года поддержка национального стандарта GB18030 является обязательной для всех программных продуктов в КНР - необходимо установить Encode :: HanExtra из CPAN.