Загрузка файла через форму

[mario_315]

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

Есть форма для загрузки файла. Там мы выбираем файл, нажимаем кнопочку и файл грузится на сервер. Надо сделать так, что бы Perl выбирал файл и жал на кнопочку.

[Sla]

чего надо?
Кто должен жать?
Сформулируй правильно вопрос - получишь правильный ответ

зы, я конечно пнимаю, что ты хотел сказать. Но! Хочу правильный вопрос.

[mario_315]

Нужно написать скрипт который автоматически заполняет поле формы (выбирая файл) и жмет кнопку отправки формы.

[Sla]

так-с первая часть вопроса понятна, теперь сформулирую вторую (в части - жмет)

[mario_315]

Переформулирую вопрос:

Допустим есть форма

Код:

<form action='file.php' method='post'>
<input type='text' name='field`>
<input type='pass' name='pass'>
<input type='submit' name='submit'>
</form>

следующим кодом мы ее заполняем и отправляем

Код:

$agent -> submit_form(
              form_number => 1,
              fields => { field => $val1, pass => $val2},
);

А вот как сделать тоже самое, но с типом поле не text, а file?

[Sla]

что тебе известно про LWP?
Удалось ли отправить обычную форму методом POST?
какие бывают content-type?

[mario_315]

1. Про LWP известно немного - при использовании LWP::UserAgent'a можно получить содержимое страницы
2. обычную форму удалось отправить как методом POST так и методом GET
3. content-type'ы могут быть текстовыми - это в данном случае вроде не очень надо
могут быть multipart, которые могут состоять из различных типов данных
могут быть image - содержат графические изображения
application данные какого-нибудь приложения

Где-то видел такую строчку LWP::UserAgent->post("multypart");. Куда-то в этом направлении надо копать? 

[Sla]

mario_315, покажи скрипт которым ты отправлял данные обыкновенной формы

[mario_315]

Код:

use strict;
use WWW::Mechanize;

my $val1 = 'blablabla';
my $val2 = 'bla-bla-bla';
my $agent = WWW::Mechanize -> new();

$agent -> get('http://somesite.org');
$agent-> sumbit_form (
                form_number => 1,
                fields => { field1 => $val1, field2 => $val2},
);

print $agent -> content;

[Sla]

каким методом ты будешь отправлять файл?
какой размер отправляемого файла


смотри в сторону LWP

[mario_315]

Глянул в сторону LWP

Код:

use LWP::UserAgent;

$agent = LWP::UserAgent -> new();
my $resp = $agent -> post("http://localhost/file.php",
       { 'field' => 'value' });
print $content = $resp -> content;

Я так понимаю, что здесь где-то надо добавить multypart?

Размер файла до 1мб максимум
Метод Get или Post - не принципиально (но желательно разобраться как сделать с обоими)

Пойду гляну документацию по LWP

Добавлено через 42 минуты и 56 секунд:
Глянул документацию. Голова кругом

Написать смог только такое, но не работает. Наверное, неправильно написал 

Код:

use LWP::UserAgent;

my $file = 'c:\img.jpg';

$ua = LWP::UserAgent -> new();
my $resp = $ua -> post("http://localhost/test/file.php",
                  Content_Type => 'multipart/form-data',
                  Content => [ init => ["$file"],
                  ]);
print $content = $resp -> content;

Буду думать дальше.

Добавлено через 17 минут и 48 секунд:
Было найдено следующее решение

Код:

use strict;
use WWW::Mechanize;

my $file = 'c:\img.jpg';
my $agent = WWW::Mechanize -> new();

$agent -> get('http://localhost/file.php');
$agent -> submit_form(
                form_number => 1,
                fields => {img => $file},
);

print $agent -> content;

Блин, что мешало сразу так сделать?
Но все-таки хотелось бы и с LWP разобраться

[Sla]

отправка файла методом GET? получилось?
хм ... искать "длина GET запроса"

[mario_315]

У меня в форме стоит метод POST. С GET проверил не работает

[McZim]

mario_315, разницу между GET и POST понимаешь?

[mario_315]

mario_315, разницу между GET и POST понимаешь?

get'ом значения переменных передаются в адресной строке и ограничены каким-то количеством символов
post'ом передаются как-то по другому и размер этих значений может быть гораздо больше чем у get'a.
Вроде так