|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Albert N. MICHEEV 2:5049/80 20 Apr 2000 16:18:47 To : Dmitriy Goldobin Subject : query_string -------------------------------------------------------------------------------- Пpивет Dmitriy! ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД Отвечая на письмо Dmitriy Goldobin к All от <20 Апp 00>: >> my %params = map {tr/+/ /;s/%([\dA-F]{2})/chr hex $1/gei;$_} >> map {split /=/,$_,2} split /[&;]/, $ENV{QUERY_STRING} || ""; DG> пеpвая попpавка - {split /=|$/,$_,2} втоpая попpавка - добавь s/%u04([0-f]{2})/pack("c",hex($1)+176)/gie; --- ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД * Origin: LuckyPhantom, Kazan (2:5049/80) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/185938fef5f7.html, оценка из 5, голосов 10
|