|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Victor Antropov 2:5004/43.9 14 Feb 2001 22:48:54
To : All
Subject : Запросы: Что я не так делаю?
--------------------------------------------------------------------------------
Здравсвуйте, All!
Вот решил разобраться с запросами - да все что-й то не так выходит. Может я что
то не так понимаю, но как мне кажется, нижепревиденный скрипт должен передать
данные скрипту rez.cgi и тем самым вызвать его исполнение. Сам скрипт rez.cgi
занимается тем, что выводит список параметров с их значениями. Я честно говоря
ожидал, что после вызова этого (чуть ли не из perldoc выдернул пример) скрипта,
браузер отобразит мне rez.cgi c тем что помещено в $request->content().
Однако...
=== Cut ===
#!/Perl/bin/Perl
use LWP::UserAgent;
my $ua = new LWP::UserAgent; # create a useragent to test
my $request = new HTTP::Request('POST','http://main/zapros/rez.cgi');
$request->header('Content-Type', 'application/x-www-form-urlencoded');
$request->content('bb=333');
my $response = $ua->request($request);
my $str = $response->as_string;
print "$str\n";
if ($response->is_success) {print $response->content}
else{print $response->error_as_HTML; } === Cut ===
Однако происходит тот вариант, который который в самом конце, то есть
error_as_HTML. И оторажается следующая штуковина:
Can't connect to main:80( Bad hostname main). Main - это мой локальный хост так
называется.
Пробовал main заменить на 127.0.0.1, но тогда проиходит ошибка на сервере:
Bad Header=HTTP/1.1 200 OK.
Такие вот дела. Я вот думаю может что-то не то делаю? Разъясните, плиз
ЗЫ:
И еще один вопрос, хотя маленько оффтопик. По поводу GD.pm . Есть у меня диск,
на котором записана CPAN. Корявый несколько интерфейс, но обычно я переписываю
архив, содержащий нужный модуль, разворачиваю, а то что лежит в каталоге lib
переписываю куда надо - обычно работает. Да, Makefile.pl не портачит, пишет
что-то про неправиильные пути - может из за того что Винда? Hу так вот - в
архиве с GD каталога lib нет, а к модулю GD имеет отношение только один GD.pm,
никаких тебе GD::*. А для пользования модулем требуются всякие объекты типа
GD::Image - ну и вобщем орет перл, что такой объект обнаружить не может. Такие
вот дела. Скажите, плиз, у кого как работает.
Виктор.
[Team Art Rock][Team ФМШ64][Team ОмГТУ][Team Бога нет!]
--- GoldED 3.00.Beta2+
* Origin: Совращение малолетних - дело рук самих малолетних. (2:5004/43.9)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
