|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : vitus@ice.ru 2:5020/400 07 Aug 2001 15:36:52 To : Ilya Rubtsov Subject : Re: regexp -------------------------------------------------------------------------------- Ilya Rubtsov <perl@perl.pp.ru> wrote: IR>Когда date сказал мне 'Mon, 06 Aug 2001 21:22:17 +0400', IR>Vladimir Kotlyar произнес: >>Втоpой час бьюсь над regexp'ом, осyществляющим пpеобpазование вида: >>"АБВ где" -> "%C0%C1%C2%20E3%E4%E5" IR>use CGI; IR>$cgi = new CGI; IR>$escaped = $cgi->escape('АБВ где'); IR>Вроде так. Пишу по памяти... IR>Это конечно через попу, но я предполагаю, что именно для этого оно тебе и IR>потребуется(т.е. CGI.pm не будет вызываться из-за одного лишь escape()). А если это не требуется, есть отдельный модуль URI::Escape А если уж речь о регекспе, то s/[^A-Za-z0-9]/sprintf("%%02x",$&)/eg; -- Victor Wagner vitus@ice.ru Chief Technical Officer Office:7-(095)-748-53-88 Communiware.Net Home: 7-(095)-135-46-61 http://www.communiware.net http://www.ice.ru/~vitus --- ifmail v.2.15dev5 * Origin: FT-center (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/95099482cb18.html, оценка из 5, голосов 10
|