Perl — Отправляем файлы на сервер HTTP запросом

[dimkalinux]

Отправлять большие файлы можно и через HTTP::Request::Common если использовать динамическую загрузку файлов (частями). Для этого необходимо указать $HTTP::Request::Common::DYNAMIC_FILE_UPLOAD = 1;

[phoinixrw]

Если честно, то на модуль HTTP::Request::Common я обратил внимание в первую очередь, когда стала такая задача.
Но увы, в процессе работы с ним столкнулся с некоторыми его багами и недочетами, в общем, мне лично, этот модуль не понравился, а самое главное он не отвечал главным требованиям задачи.
На самом деле изначально мне нужно было проксировать POST запросы со вложенными файлами, слегка модифицировав контент. Поэтому файлов, как таковых, у меня не было, а были объекты Apache::Upload.

[phoinixrw]

Я бы сразу это бы запостил туда, но увы «У вас недостаточно кармы».
Я тут можно сказать — новенький.

[santeri]

Спасибо за вариант с использованием сокетов.

[santeri]

отправлять можно через WWW::Mechanize,
очень удобно, метод submit_form

#!/usr/bin/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,
 },
);

будет примерно так.