ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     14 Mar 2002  21:22:59
 To : Alexander V. Gaiduk
 Subject : Re: unescape
 -------------------------------------------------------------------------------- 
 

 Alexander V. Gaiduk wrote:
 
 > здрасте.
 > 
 > в куке лежит такое:
 > 
 > nam=%u0410%u043B%u0435%u043A%u0441%u0430%u043D%u0434%u0440
 > 
 > кто чем такое читает ?
 > как это юникодовое чудище проще перевести в win1251 ?
 > 
 > я волшебное слово знаю: плииzz.
 
 Hасколько мне известно, ни URI::Escape::uri_unescape,
 ни CGI::Util::unescape не поддерживают уникода. Я бы
 поступил так:
 
 use Unicode::Map8;
 my $map1251 = Unicode::Map8->new('cp1251');
 
 $nam =~ s/
      %
      (?:
          ([\da-f]{2}) |
          u([\da-f]{4})
       )
 /
      $1 ? chr(hex($1)) : $map1251->to8(pack('n', hex($2)))
 /giex;
 Андрей
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    unescape   Alexander V. Gaiduk   14 Mar 2002 18:23:44   Re: unescape   Andrey Sapozhnikov   14 Mar 2002 21:22:59