|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Paul Kulchenko 2:5020/400 09 Jun 2000 19:19:14 To : All Subject : Re: CGI from CGI -------------------------------------------------------------------------------- Hi, Andrey! Andrei Kossogorov wrote in message <8ho2b0$1u3$1@pumba.cell.ru>... >Есть 1-й CGI скрипт, который я запускаю на сервере биллинговой компании. Он >в свою очередь запускает другой 2-й CGI-скрипт, который находится у меня на >сервере. При этом, 1-й CGI-скрипт, который запускаю я, выводит на экран >результаты работы 2-го CGI-скрипта. >Подскажите, как это реализовано? 7 строк. 1.cgi: use LWP::UserAgent; use CGI qw(header -no_debug); my $URL = 'http://www.yourserver.com/2.cgi'; my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL); print header, $res->is_success ? $res->content : $res->status_line; Если вывод длинный или медленный, лучше делать через callback. Примеры в LWP FAQ. Best wishes, Paul. --- ifmail v.2.15dev5 * Origin: Rostelecom/Internet Centre (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/65527ae82699.html, оценка из 5, голосов 10
|