![]() |
![]() |
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]; } |