LINUX.ORG.RU

объясните идиоту, отчего не подгружает. с веба же вручную подгружает


0

0

#!/usr/bin/perl -w
# программа, которая загружает локальные файлы fecam
# на удаленный сервак по ssh

use strict;

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use CGI qw(header -no_debug);

my $test = "http://www.server.ru/fecam/up.html";;
my $d="c:\\new_fecam\\fits";
my (@a,@res,@m);

push @a => $_ while <$d\\*.*>;
push @res, [splice(@a, 0, 3)] while @a;

#foreach (@res){
  my $req = POST $test,
    Content_Type => 'form-data',
    Content      => [
           FILE1 => ["launch_missle.jpg"],
                    ];

  my $res = LWP::UserAgent->new->request($req);
  #print header, $res->is_success ? $res->content : $res->status_line;
  #print $req->as_string;
                                     #}

файл launch_missle.jpg точно стопроцентно стопудово есть.
anonymous

Re: объясните идиоту, отчего не подгружает. с веба же вручную подгружает

в $res что будет после выполнения? Страница, которую генерирует сервер после запроса? Она также выглядит, когда ты подгружаешь вручную?

Fedor ★★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.