Здравствуйте! Я хочу написать скрипт который автоматически заполняет форму на job.ru.
Я пробую так:
use LWP::Simple;

my $url = 'http://job.ru/addres.html'; #название удаленного хоста
my $form1= 'addResumeForm_speciality'; #название формы
my $form2 = 'addResumeForm_name'; #название формы
my $form3 = 'addResumeForm_phone'; #название формы
my $val1= 'админ'; #значение формы, которое нужно передать
my $val2 = 'Кирилл'; #значение формы, которое нужно передать
my $val3 = '89211234567'; #значение формы, которое нужно передать
my $req = $url.'?'.$form1.'='.$val1.'?'.$form2.'='.$val2.'?'.$form3.'='.$val3;
get($req);

Ошибка помойму в последней строке, напутано с точками и вопросами. Помогите пожалуйста!!! Или это вообще невозможно?

Цитата(Dolik @ 11.1.2005, 07:00)

get($req);

На сколько я знаю get вытягивает страницу с сервера, а те нужно совсем не то

почитай про HTTP::Request думаю поможет в решении твоей задачи

Цитата

my $form1= 'addResumeForm_speciality'; #название формы

Во-первых, не название формы, а имя поля формы.

Во-вторых,
my $req = $url."?".$form1."=".$val1."&".$form2."=".$val2."&".$form3."=".$val3;

В третих:
символы отличные от цифр и букв анг. языка не передаются на прямую

что то вроде такого:

Код

my $req = $url."?".&c_str($form1 => $val1,$form2 => $val2); sub c_str{ my %_data=map { s/([^0-9a-z])/sprintf("%%%x", ord($1))/egi;$_; } @_; my $_out; for ( keys %_data ){  $_out.="&" if ($_out);  $_out.=$_."=".$_data{$_}; } return $_out; }