Применение модуля HTTP::Request::Common для отправки на сервер данных заполняемой формы.

Поскольку передача на сервер значений полей из заполняемых форм применяется так часто, в библиотеке LWP предусмотрен класс HTTP::Request::Common, позво­ляющий значительно упростить эту операцию. После загрузки модуля HTTP::Request::Common он импортирует четыре функции, GET () , POST (), HEAD () и PUT (),которые позволяют создавать объекты HTTP::Request различных типов.

Здесь рассматривается функция POST (), позволяющая создавать объекты HTTP::Request, пригодные для эмуляции передачи данных заполняемых форм. Три другие функции являются аналогичными.

$request = POST($url[,$form_ref] [,$headerl=>$vall ...])

Функция POST () возвращает объект http::Request, в котором используется метод POST. Па­раметр $url обозначает затребованный URL и может представлять собой простую строку или объект URI. Необязательный параметр $form_ref — это ссылка на массив, содержащий имена и значения полей формы, которые должны быть переданы как информационное наполнение. Если есть необходимость включить в запрос дополнительные поля заголовка, вслед за этими параметрами нужно указать список пар “поле заголовка/значение”.

Ниже показано, как построить запрос к машине поиска по предметному указателю RFC на узле организации Internet FAQ Consortium с помощью функции POST ().

my $request = POST('http://www.faqs.org/cgi-bin/rfcsearch', [query => 'MIME types’, archive => 'rfcindex']);

А в следующем фрагменте кода показано, как сделать то же самое, но одновременно установить значение поля заголовка Referer:.

• my $request = POST ('http://www.faqs.org/cgir-Mn/rfcsearch', [query => ' MIME types ', archive => 'rfcindex'], Referer => 'http://www.faqs.org/rfcs');