新しいblogに移行しました

新ブログ "All Yout Bugs Are Belong To Ass" に移行しました!

2010-11-09

[Perl]LWP::UserAgentとかでファイルアップロードしたい

HTTP::Request::Commonのドキュメントに書いてあるんですけど、思いのほかうまく探せませんでした。

use warnings;
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;

my $req = POST( 
    'http://upload.er/uploader.cgi',
    Content_Type => 'form-data',
    Content => {
        data => [ "file.txt" ],
    } 
);

my $ua = LWP::UserAgent->new;
$ua->request( $request );

これでfile.txtをうpしてくれます。

0 件のコメント: