ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  21 Jun 2000  21:33:02
 To : "Alexander Dzyubenko"
 Subject : Re: URL Encode
 -------------------------------------------------------------------------------- 
 

 
 AD> Для того, чтобы раскодировать URL-кодировку используют вот это:
 
 AD>   $value =~ tr/+/ /;
 AD>   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
 AD> А как закодировать?
 
 CGI::Util:
 
 # URL-encode data
 sub escape {
   shift() if ref($_[0]) || (defined $_[1] && $_[0] eq $CGI::DefaultClass);
   my $toencode = shift;
   return undef unless defined($toencode);
   $toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
   return $toencode;
 }
 
 Регекс в подстановке по вкусу.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор