|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Paul Kulchenko 2:5020/400 09 Aug 2000 23:48:48 To : All Subject : Re: Вопросик.. -------------------------------------------------------------------------------- Hi, Eugeny! Eugeny Bodunov wrote: > MS> man LWP > Таак это мы уже слышали, ты мне лучше скажи чего этот скpипт выводит лишние > символы в тексте, а загpузка каpтинок вообще в шок вгоняет... Где тут лишние символы? Как можно на этот вопрос ответить? > #!c:/evgen/perl/bin/perl -w > use HTTP::Request; > use HTTP::Response; > use LWP::UserAgent; > print ("Content-type: text/html\n\n"); > $ua = LWP::UserAgent->new; > $request = HTTP::Request->new(GET => 'http://ig/'); > $response = $ua->request($request); > if ($response->is_success){ > print = $response->content; 1. print $response->content; > } else { > print $response->error_as_HTML; > } > Вpоде все из пpимеpа достал... 2. Для картинок нужно другой content-type возврашать. 3. на windows платформе нужно binmode делать. LWP FAQ: 1.2. How to get jpeg/gif/bmp file and return it? use LWP::UserAgent; use CGI qw(header -no_debug); $URL = 'http://a100.g.akamaitech.net/7/100/70/0001/www.fool.com/art/new/butts/go99.gif' ; my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL); binmode(STDOUT); print $res->is_success ? (header('image/gif'), $res->content) : (header('text/html'), $res->status_line); Best wishes, Paul. --- ifmail v.2.15dev5 * Origin: Trans World Airlines (TWA) (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/35553c86c842.html, оценка из 5, голосов 10
|