Здравствуйте, я с помощью следующего скрипта пытаюсь оставить сообщение в гостевой на удаленном хосте:

use LWP::Simple;
my $url = 'http://sergey-titov.boom.ru/servletGuestBook?action=view&id=30220817'; #URL гостевой на удаленном хосте
my $form1= 'from'; # имя поля формы
my $form2 = 'comment'; # имя поля формы
my $val1= 'dolik'; # значение поля формы
my $val2 = 'privet'; # значение поля формы
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;
}
get($req);


Но не получается. Помогите! В чем проблема, почему сообщение не остается?

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

ps че за мания заполнять чужие формы, руками заполняй ))

Это сообщение отредактировал(а) chaos - 13.1.2005, 11:14

Цитата

my $url = 'http://sergey-titov.boom.ru/servletGuestBook?action=view&id=30220817'; #URL гостевой на удаленном хосте

Цитата

my $req = $url."?".&c_str($form1 => $val1,$form2 => $val2);

Так на первый взгляд точно надо исправить:
my $req = $url."&".&c_str($form1 => $val1,$form2 => $val2);