ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexander Russkih                    2:468/14       04 Oct 2000  14:53:04
 To : Andrey Lastochkin
 Subject : Re: GET string
 -------------------------------------------------------------------------------- 
 

      Здравствуй, Andrey!
 
 Среда Октябрь 04 2000 14:13, Andrey Lastochkin wrote to All:
 
  AL>   CGI-скрипту передается строка "font_size=%F1%F0%E5%E4%ED%E8%E9"
 
  AL> как можно поцивильнее превратить ее в нормальную строку?
 
 use CGI;
 my $font_size = param('font_size');
 
 ... одним словом - посмотри в сторону модуля CGI :)
 
  AL> вообще как-нибудь можно написать типа такого: s/%(\w\w)/chr(ord($1))/g
  AL> ???
 
 вот, лови, все из того-же CGI.pm:
 
 # unescape URL-encoded data
 sub unescape {
   shift() if ref($_[0]) || (defined $_[1] && $_[0] eq $DefaultClass);
   my $todecode = shift;
   return undef unless defined($todecode);
   $todecode =~ tr/+/ /;       # pluses become spaces
     if ($EBCDIC) {
       $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",$A2E[hex($1)])/ge;
     } else {
       $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
     }
   return $todecode;
 }
 
 идею уловил? :)
 
      До свидания! Пишите письма! С уважением Александр Русских.
      www.unio.kherson.ua/~rap    Среда Октябрь 04 2000
 
 ... Темное пиво эмблема печали - светлое пиво эмблема любви!
 --- G01dED/2 3.0.1-GP
  * Origin: °±ІЫ DEAD'FACE aka 3735943886 ЫІ±° (2:468/14)
 
 

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

Тема:    Автор:    Дата:    GET string   Andrey Lastochkin   04 Oct 2000 14:13:12   Re: GET string   Sergej Razuwalow   04 Oct 2000 16:02:20   Re: GET string   Paul Kulchenko   06 Oct 2000 01:47:10   Re: GET string   Alexander Russkih   04 Oct 2000 14:53:04