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
то выражение не срабатывает.

Как правильно составить его?
Заранее спасибо!

• Как составить регулярное выражение для URL,Vladislav Lazarenko, 18:15 , 11-Окт-04

>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
>то выражение не срабатывает.
>
>Как правильно составить его?
>Заранее спасибо!

(?:^|")(http|ftp|mailto):(?://)?(\w+(?:[\.:@]\w+)*?)(?:/|@)([^"\?]*?)(?:\?([^\?"]*?))?(?:$|")