- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #2587 [500]
От : Serge Chervjakov 2:5020/400 15 февраля 04, 00:05
Кому : Serge Chervjakov 15 февраля 04, 00:26
Тема : ->hex
-------------------------------------------------------------------------------
From: "Serge Chervjakov"
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)