СообЧа > База Знаний > Интернет > Веб-строительство > Perl

Вопрос

Как выполнить обратное преобразование нормального текста в символы, например, %F2 ?

Ответ

$s =~ tr/+/ /;
$s =~ s/([\x00-\x1F\x7F\xFF])/ sprintf '%%%02X', ord($1) /eg;



Copyright © 2000-2004 Сообщество Чайников
Контактная информация