ps че за мания заполнять чужие формы, руками заполняй
)) | Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: разработка для Web > Запись значений в гостевую скриптом |
| Автор: Dolik 13.1.2005, 01:11 |
| Здравствуйте, я с помощью следующего скрипта пытаюсь оставить сообщение в гостевой на удаленном хосте: 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); Но не получается. Помогите! В чем проблема, почему сообщение не остается? |
| Автор: chaos 13.1.2005, 11:09 |
| на сколько я помню get вытягивает страницу с сервера ps че за мания заполнять чужие формы, руками заполняй )) |
| Автор: s_a_s_h_a 13.1.2005, 11:40 | ||||
Так на первый взгляд точно надо исправить: my $req = $url."&".&c_str($form1 => $val1,$form2 => $val2); |