Закачка файла

@Domain · Регистрация: 07.10.2010

Author24 — интернет-сервис помощи студентам

Добрый день всем,
пытаюсь написать скрипт для автоматической загрузки файлов на сервер.
Подскажите, что в этом скрипте нетак.
заранее спасибо.

Perl

use strict;
use warnings;
 
use LWP::UserAgent;
use HTTP::Request::Common;
 
my $userAgent = LWP::UserAgent->new();
 
my $request = HTTP::Request->new(POST => 'http://www.yyy.com', Content_Type => 'multipart/form-data', Content => [file => ['E:\fdva.jpg']]);
 
my $response = $userAgent->request($request);
print $response->error_as_HTML . "\n" if $response->is_error;

Добавлено через 1 час 18 минут
Нашел вот такой вот небольшой хороший для понимания и главное работающий скрипт

Perl

use strict;
use WWW::Mechanize;
 
my $file_to_upload = './files/some_file.bin';
 
my $mech = WWW::Mechanize->new();
$mech->agent_alias( 'Windows Mozilla' );
$mech->get('http://somedomain.com/form');
$mech->submit_form(
 with_fields => {
   upload_file => $file_to_upload,
 },
);

	29.11.2010, 17:48