LINUX.ORG.RU
Форум — Talks  

Перекодирование в Perl


0

0

Срочно надо.

Как конвертнуть юникодные символы в строках во что-то типа "$#1073;"? Вручную составлять хеш не предлагать.

anonymous

Re: Перекодирование в Perl

#! /usr/bin/perl -w

while (<>) { chomp; foreach $c (split(//)) { printf "&#%d;", ord($c); } print "\n"; }

ananas ★★★★★
()

Re: Перекодирование в Perl

#! /usr/bin/perl -w

while (<>) {
        chomp;
        foreach $c (split(//)) {
                printf "&#%d;", ord($c);
        }
        print "\n";
}

ananas ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Talks