Форум — Talks Перекодирование в Perl 0 0 Срочно надо. Как конвертнуть юникодные символы в строках во что-то типа "$#1073;"? Вручную составлять хеш не предлагать. Ссылка
#! /usr/bin/perl -w while (<>) { chomp; foreach $c (split(//)) { printf "&#%d;", ord($c); } print "\n"; } ananas ★★★★★ (04.10.2005 13:32:17 +00:00) Ссылка
#! /usr/bin/perl -w while (<>) { chomp; foreach $c (split(//)) { printf "&#%d;", ord($c); } print "\n"; } ananas ★★★★★ (04.10.2005 13:33:10 +00:00) Показать ответ Ссылка
Ответ на: комментарий от ananas 04.10.2005 13:33:10 +00:00 Спасибо! anonymous (04.10.2005 14:46:08 +00:00) Ссылка