Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: разработка для Web > загрузка картинки


Автор: GR0Mi 5.7.2012, 14:19
помогите картинку загрузить

есть пост запрос

Код

-----------------------------122872775310383\r\nContent-Disposition: form-data; name="avatar"; filename="1.jpg"\r\nContent-Type: image/jpeg\r\n\r\nÿØÿà


Код

POSTDATA =-----------------------------122872775310383
Content-Disposition: form-data; name="avatar"; filename="1ûàû.jpg"
Content-Type: image/jpeg

ÿØÿà


делаю так. но не загружает.

Код

my $foto = '1.jpg';
my @fotos = lf($foto);

my $resp = $ua->post(
    'http://site.ru/userphoto/ajax/uploadTempAvatarPhoto',
    'Content-Type' => 'image/jpeg',
    Content => 'form-data; name="avatar"; filename="@fotos"'
)->as_string;


как правильно запрос составить

Автор: DurRandir 5.7.2012, 16:49
http://search.cpan.org/~gaas/HTTP-Message-6.03/lib/HTTP/Request/Common.pm

Автор: GR0Mi 5.7.2012, 23:05
Цитата(DurRandir @ 5.7.2012,  16:49)
http://search.cpan.org/~gaas/HTTP-Message-6.03/lib/HTTP/Request/Common.pm

если честно не понял к чему та сылка про обычные запросы?

Автор: DurRandir 5.7.2012, 23:53
Если вы там не смогли найти слов "file upload", то, увы, ни к чему.

Автор: GR0Mi 6.7.2012, 01:15
Цитата(DurRandir @ 5.7.2012,  23:53)
Если вы там не смогли найти слов "file upload", то, увы, ни к чему.

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

Автор: krypt3r 6.7.2012, 06:15
Тыкаю носом в кусок кода
Цитата

  POST 'http://www.perl.org/survey.cgi',
                  Content_Type => 'form-data',
                  Content      => [ name  => 'Gisle Aas',
                                    email => 'gisle@aas.no',
                                    gender => 'M',
                                    born   => '1964',
                                    init   => ["$ENV{HOME}/.profile"],
                   ]

Автор: GR0Mi 6.7.2012, 22:55
Цитата(krypt3r @ 6.7.2012,  06:15)
Тыкаю носом в кусок кода
Цитата

  POST 'http://www.perl.org/survey.cgi',
                  Content_Type => 'form-data',
                  Content      => [ name  => 'Gisle Aas',
                                    email => 'gisle@aas.no',
                                    gender => 'M',
                                    born   => '1964',
                                    init   => ["$ENV{HOME}/.profile"],
                   ]

Ваш код мне нечем не помог. как составлять пост запросы я знаю. и я его составил но гдето ошибка тк картинка не загружается

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)