upload souboru pres HTTP v perlu

[Honza Pazdziora]

On Thu, Feb 01, 2007 at 11:10:17AM +0100, Ondrej Koala Vacha wrote:
> 
> muze se se mnou nekdo podelit o priklad? Precetl jsem si manove stranky 
> jako HTTP::Request::Common, LWP::UserAgent aj. a byt se tam jasne pise, ze 
> to ma jit, tak mne to nejde, patrne kvuli ne zcela presne dokumentaci. 
> Jde mi na jedne strane soubor nebo jeho obsah poslat do cgi perl skriptu 
> cekajici na druhe strane, vse pres HTTP.

No, vzal jsem priklad z manove stranky HTTP::Request::Common,
trosku ho priohnul, a zda se mi fungovat:

use LWP::UserAgent ();
use HTTP::Request::Common 'POST';

my $ua = new LWP::UserAgent;

my $result = $ua->request(
        POST 'http://www.fi.muni.cz/~adelton/set.cgi',
                Content_Type => 'form-data',
                Content => [
                        name  => 'Joe U. Ser',
                        email => 'joe na example.com',
                        file1 => [ "$ENV{HOME}/.bash_profile" ],
                        file2 => [ "$ENV{HOME}/.bashrc" ],
                ]
        );

print $result->content;

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
             .project: Perl, C, Red Hat Network, IPv6, VoIP
		Only self-confident people can be simple.