ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Paul Kulchenko                       2:5020/400     16 Jun 2000  08:25:15
 To : All
 Subject : Re: ??? ????????? ??? ? ???   ???????????? ????????
 -------------------------------------------------------------------------------- 
 

 Hi, pit!
 
 pit wrote:
 
 > 
 > Привет!!
 > 
 > Есть проблема, нужно сохранить запрошенный гиф на серваке, скрипт
 > такой(откуда-то взял)
 
 Этот пример есть в LWP FAQ.
 
 #!/usr/bin/perl -wT
 
 use LWP::UserAgent;
 use CGI qw(header);
 my $URL = "http://www.yandex.ru/logo1.gif";
 my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL);
 if ($res->is_success) {
 Н open (ABC, ">suda_pisat.jpg") or die $!; binmode(ABC); print ABC 
 
 $res->content; close ABC or die $!;
 
 } else {
 Н print $res->status_line;
 }
 
 Все остальные страдания ни к чему. Ты бы хоть посмотрел-то что там 
 делается. Ты же читаешь файл вместо того, чтобы писать его.
 
 Best wishes, Paul.
 
 --- ifmail v.2.15dev5
  * Origin: Rostelecom/Internet Centre (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    как сохранить гиф и как пользоваться шрифтами   pit   16 Jun 2000 03:27:03   Re: ??? ????????? ??? ? ??? ???????????? ????????   Paul Kulchenko   16 Jun 2000 08:25:15   Re: ??? ????????? ??? ? ??? ???????????? ????????   бв ¤® ¤пв«®ў   17 Jun 2000 18:30:16