Hi, all!
Нужно составить рег выр на tcl для разборки первой строки web-запроса вида:
GET http://foo.com/cgi/script?a=1&b=2
(возможен вариант без переменных или имени скрипта)
Самы рабочий вариант:
regexp {^(GET|POST)[ ]http://(.*)//?(.*)\??(.*)} $in_buff all method site script vars
Но при этом результат такой:
Link= GET http://yandex.ru/edditor?a=1&b=2
Method= GET
Site= yandex.ru
Script= edditor?a=1&b=2
Vars=
Т.е. site и vars не разделяются. К тому же если url имеет вид:
GET http://foo.com
то выражение не срабатывает.
Как правильно составить его?
Заранее спасибо!