Ответ

Безымянный 30.07.2005 00:34

И если вдруг кому нужно будет:
разбор $request:query (рабочий вариант)

# Если необходимо, то 
# передаем данные после замены  %uXXXX -> Win1251
# см. http://www.parser.ru/forum/?id=42777
@_parse_query_string[string][parts;key;value]
$result[^hash::create[]]
^if(^string.pos[?] >= 0){
	$result.qtail[^string.mid(^string.pos[?]+1)]
	$string[^string.mid(0;^string.pos[?])]
}
$parts[^string.split[&]]
^parts.menu{
	^if(^parts.piece.pos[=] > 0){
		$key[^parts.piece.left(^parts.piece.pos[=])]
		$value[^parts.piece.mid(^parts.piece.pos[=]+1)]
		$result.$key[$value]
	}
}

---