ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serge Chervjakov                     2:5020/400     15 Feb 2004  01:05:20
 To : Serge Chervjakov
 Subject : ->hex
 -------------------------------------------------------------------------------- 
 

 Sat Feb 14 2004 23:56, Serge Chervjakov wrote to Yuri Anosov:
 
  YA>>      Есть задача: перекодировать строку в шестнадтеричный формат, т.е
  YA>> вмето J получить 4A етс
 
  SC> uc(sprintf('%x',unpack('c','J')));
 
 тьфу блин - запутался совсем:). 
 uc(sprintf('%x',ord('J')));
 Хотя первое тоже правильно... но странное предчувствие, что второе все таки
 быстрее...
 
 А забыл:
 для того, что бы декодировать параметр для урла я использую это:
 sub urlencode
 {
  my $theURL = $_[0];
  my $MetaChars=quotemeta('<>;,/?\|=+)(*&^%$#!~`:');
 $theURL=~s/([$MetaChars\"\'\x80-\xFF])/"%".uc(sprintf("%2.2x", ord($1)))/eg;
 $theURL=~s/ /\+/g;
  return $theURL;
 }
 
 Если будет особое желание, то можешь синхронизировать ее с тем, как кодирует
 эксплорер... на сях я собственно так и сделал - там оно поточнее у меня будет.
 
 По ходу можно еще CGI по-мойму поиспользовать для этих же целей, но мне
 почему-то оно не нравится... ну не знаю почему:)).
 
 --- ifmail v.2.15dev5.3
  * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    ->hex   Yuri Anosov   14 Feb 2004 22:08:11   ->hex   Serge Chervjakov   15 Feb 2004 00:56:39   ->hex   Serge Chervjakov   15 Feb 2004 01:05:20