Flickr.com へアップロードするPerlモジュール

search.cpan.org: Flickr::Upload - Upload images to flickr.com

Flickr::Upload - Upload images to flickr.com

        use LWP::UserAgent;
        use Flickr::Upload qw(upload);

        my $ua = LWP::UserAgent->new;
        upload(
                $ua,
                'photo' => '/tmp/image.jpg',
                'email' => 'self@example.com',
                'password' => 'pr1vat3',
                'tags' => 'me myself eye',
                'is_public' => 1,
                'is_friend' => 1,
                'is_family' => 1
        ) or die "Failed to upload /tmp/image.jpg";

Flickr API を実装したPerlモジュール。 flickr_upload というスクリプトが含まれていて

flickr_upload --email <email> --password <password> 
                  [--title <title>]  [--description description] 
                  [--public <0|1>] [--friend <0|1>]

という感じで簡単にFlickrへ写真をアップロードできる。 パスワードやメールアドレスなどのオプションを $HOME/.flickrrc に設定を書いておけるってのも便利そう。