К списку форумов К списку вопросов
вопрос по Перлу
Fenakertiban
15.06.2004 - 15:37
в ява скриптах есть одна функция -unescape/escape
 есть ли аналог ей в Перле ?
 а Ежели нету то как ее можно реализовать?
Уверенный
1 - 15.06.2004 - 15:44
http://search.cpan.org/~gaas/HTML-Parser-3.36/lib/HTML/Entities.pm
 
HTML::Entities - Encode or decode strings with HTML entities
Alexander Smith
2 - 16.06.2004 - 16:23
escape:
$message =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg;
где $message - твоя переменная.
только зачем вот unescape ?
Fenakertiban
3 - 23.06.2004 - 23:30
 нужена именно unescape...
// преобразование делает яваскрипт а обратное нужно сделать на Перле :(
  а с регулярными выражениями плохо..вот и торможу
 как все-таки сделать unescape на Перле ?
// заранее благодарен
Уверенный
4 - 24.06.2004 - 09:55
Зачем делать самому то, что уже сделано? Или тот модуль не подошел?
mae
5 - 24.06.2004 - 10:46
Отрывок из engine.pm
---------
sub escape {
my @strings=@_;
s!(\W)!sprintf '%%%02X',ord $1!ge foreach(@strings);
return wantarray?@strings:$strings[0];
}
sub unescape {
my @strings=@_;
foreach(@strings){tr!+! !s;s!%([A-Z0-9]{2})!chr hex $1!ge}
return wantarray?@strings:$strings[0];
}

К списку вопросов на форуме Веб-дизайн

>>