ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : dimka kuvshinov                      2:5020/400     19 Aug 2000  04:40:32
 To : Andrew Maltsev
 Subject : Re: Скачать GIF с другого сервака
 -------------------------------------------------------------------------------- 
 

 #!/usr/bin/perl -wT
 use LWP::UserAgent;
 use CGI qw(header);
 my $URL = $link;
 my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL);
 if ($res->is_success) {
    open (ABC, ">/usr/home/dmitriy/public_html/images/$$.jpg") or die $!; 
    binmode(ABC); 
    print ABC $res->content; close ABC or die $!;
 } else {
    print $res->status_line;
 }
 
 -- 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Скачать GIF с другого сервака   Andrew Maltsev   18 Aug 2000 22:46:44   Re: Скачать GIF с другого сервака   dimka kuvshinov   19 Aug 2000 04:40:32