Главная страница


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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Вопросик..   Eugeny Bodunov   07 Aug 2000 11:50:48 
 Re: Вопросик..   Michael Samanov   07 Aug 2000 23:35:12 
 Вопросик..   Eugeny Bodunov   08 Aug 2000 21:24:47 
 Re: Вопросик..   Paul Kulchenko   09 Aug 2000 23:48:48 
 Вопросик..   Eugeny Bodunov   10 Aug 2000 16:55:36 
 Re: Вопросик..   Artem Chuprina   11 Aug 2000 10:50:49 
Архивное /ru.cgi.perl/35553c86c842.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional