Wassrに画像を投稿するサンプル

post-to-wassr.pl

use strict;
use warnings;
use LWP::UserAgent;

# TODO Input your user id.
use constant WS_LOGIN_ID => '';
# TODO Input your password.
use constant WS_PASSWORD    => '';
use constant WS_API_URL  => 'http://api.wassr.jp/statuses/update.json';
use constant WS_API_NAME => 'test';

my $message   = 'test';
# TODO Input image file path.
my $file_path = '';

my $ua = LWP::UserAgent->new( agent => WS_API_NAME );
$ua->credentials( 'api.wassr.jp:80', 'API Authentication',
    WS_LOGIN_ID, WS_PASSWORD );

$ua->post(
    WS_API_URL,
    Content_Type => 'multipart/form-data',
    Content      => [
        status => $message,
        source => WS_API_NAME,
        image  => [$file_path],
    ]
);