|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Andrew Bobin 2:5020/400 13 Dec 2001 10:26:42
To : All
Subject : Матрешки не влезают...
--------------------------------------------------------------------------------
to Artem Chuprina
AB>> То есть надо между результатами вывода одного скрипта вставить
вывод из
AB>> другого скрипта (запустив оного).
AC> В зависимости от того, что думает про способ своего запуска
script2.pl, либо
AC> perldoc -f do, либо perldoc LWP.
Скрипты лежат в одной папке. DO работает, но не подходит, так как не
позволяет передавать скрипту _входные_параметры_. Попробовал LWP:
набил пример из хелпа, подставив свой URL. Hе работает!
==
use LWP::UserAgent;
$url="http://www.mysite.my/cgi-bin/script2.pl";
# Create a user agent object
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 ".$ua->agent);
# Create a request
my $req = new HTTP::Request POST => $url;
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
if ($res->is_success) {
print $res->content;
} else {
print "Error: " . $res->status_line . "\n";
}
==
Проверялось все на лок.машине с Апачем под Вин98. is_success == false
и выводится такое:
Error: 500 Can't connect to www.mysite.my:80 (Invalid argument)
В чем, интересно, загвоздка и как ее побороть?
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
