先週金曜は、職場の忘年会でした。
独身有志一名が自宅スペースを提供してくれたので、
時間と金額に気兼ねなく、ついつい甘え、
遅くまで居座ってしまいました。
スペース提供者に感謝感謝。
今回、この忘年会の小碓をデジカメで撮ってくれた
メンバーがいて、翌日、GoogleのpicasaにUploadして
公開してくれました。
計４０枚ほどの画像。
はじめ、自分のブラウザで見ていたんですが、
TVの大画面でみたい欲望がムラムラと湧いてきました。
公開してもらっているゲストは、ブラウザインタフェース
では、どうも一枚づつしか、ダウンロードできないようです。
４０回、手動でダウンロードするのはあきらめました。
けど、
Picasaにアクセスしているときに、
ふと、ブラウザのアクセスバーをみると、
RSSのAutodiscoveryが有効になっている！
「ありゃ、RSSで画像が全部とれるんじゃないの？」
と糸口を発見。
そこからは、Perlマジック!!
・RSSに受け込まれている画像タグを見つけ
・画像URLリストを作成
・このURLリストでHTTP-GETをloop
で、無事４０枚を、ここまで正味１時間。
取得完。
取得した画像ファイル４０枚を
メモリカードに移して
ハードディスクレコーダに差し込んで、
TVで画像をゆっくり鑑賞。
いやいや、Perl、さまさま。
プライスレスで、ここまでできる。
良い時代になったことを
実感しました。
コメントを残す