ちょっと必要にかられてflickrのダウンローダを作ってみました。ダウンロードしたら拡張子変えてちょ。
Perlの実行環境とFlickr::API::Photosetsが必要で、あとflickr API keyは自分で取得して下さい(要flickrアカウント)。
動作仕様としては (1)フォトセット全部 (2)あるユーザの写真全部 (3)あるユーザのあるタグの写真全部 をインポート可能です。
使い方はこんな感じ：
% ./flickrdown.pl --key [your-api-key] --url http://www.flickr.com/photos/goodgrief/tags/Glamour/ --dir ./down --limit 100
or
% ./flickrdown.pl -k [your-api-key] -u http://www.flickr.com/photos/goodgrief/
or
% ./flickrdown.pl -k [your-api-key] -u http://www.flickr.com/photos/goodgrief/sets/1396354/
url指定するだけなのはクレヴァかも。
ソースのパラメータ初期化の所書き換えれば--keyは指定しなくてok。
余談ですが、勘違いだと思うけどflickr.people.findByUsernameの返り値のuser_idが実idとは別のだったりしました。なのでLWP::Simpleで与えられたurlのhtmlを取って来てuser_idをパースしてます。これは悲しい。
あとtags/hoge/なurlからフォトリストを取って来るのに、該当ユーザのフォトリストを全部取って来てから全部のフォトについてるタグをAPIで再検索してマッチしてるもののみ取得、と言う絶対おかしい方法を取ってます。flickr API使ったの初めてなんでよく分からないんですがこれ他にやりようあるんでしょうか。