Исходное сообщение
"Преобразование уникода" Отправлено михалыч, 06-Мрт-17 09:58
> my $text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439'; > $text =~ s/\\u(....)/chr hex $1/ge; класс! это здо́рово! спасибо за пример использования chr и hex тем самым получаем текст в utf8 если необходимо, то переводим полученный текст в нужную кодировку например вот так в koi8-r (не-не, я только перекодирование добавлю, петь и плясать не буду ☺ ) #!/usr/bin/perl use Encode qw(encode decode); $text='\u041b\u044e\u0431\u0435\u0440\u0435\u0446\u043a\u0438\u0439'; $text =~ s/\\u(....)/chr hex $1/ge; $text = Encode::encode('koi8-r', $text); print $text; на пальму первенства не претендую ))