«前の日記(2006-07-17(Mon)) 最新 次の日記(2006-07-19(Wed))» 編集

[email protected]



2006-07-18(Tue) [長年日記]

_ 101fwy.com「陸・海・空軍」板から写真をぶっこ抜き(仮)・その2

昨日の続き。

少しいじって「陸・海・空軍」板の全ての板からjpgのぶっこ抜きが出来るようにしてみた。

assets/plugins/Filter-FindEnclosures/101fwy.pl:

sub handle {
    my ($self, $url) = @_;
    $url =~ qr!http://(www\.)?101fwy\.com/\w+/(\d+\.htm)?!;
}

sub find {
    my($self, $args) = @_;

    my @enclosures_list;
    while ($args->{content} =~ m!<a href="(src/\d+\.jpg)" target=_blank>\d+\.jpg</a>!g) {
        my $enclosure = Plagger::Enclosure->new;
        $enclosure->url( URI->new_abs($1, $args->{url}) );
        $enclosure->auto_set_type;
        push @enclosures_list, $enclosure;
    }
    if (@enclosures_list) {
        return \@enclosures_list;
    }
    return;
}

lib/Plagger/Plugin/Filter/FindEnclosures.pmに以下のパッチを当てて、複数のenclosureも見付けられるようにしてみた(中身が汚いのはご愛嬌)。

でも、全然Plaggerの中身を理解していないので、もしかしたら、必要のない処理だったりするかも知れない。

--- lib/Plagger/Plugin/Filter/FindEnclosures.pm.orig   Tue Jul 18 16:22:56 2006
+++ lib/Plagger/Plugin/Filter/FindEnclosures.pm        Tue Jul 18 17:29:10 2006
@@ -150,8 +150,16 @@
             $content ||= $self->fetch_content($url) or return;

             if (my $enclosure = $plugin->find({ content => $content, url => $url })) {
-                Plagger->context->log(info => "Found enclosure " . $enclosure->url ." with " . $plugin->site_name);
-                $entry->add_enclosure($enclosure);
+                if (ref $enclosure) {
+                    for my $enclosure_val (@$enclosure) {
+                        Plagger->context->log(info => "Found enclosure " .  $enclosure_val->url ." with " . $plugin->site_name);
+                        $entry->add_enclosure($enclosure_val);
+                    }
+                }
+                else {
+                    Plagger->context->log(info => "Found enclosure " . $enclosure->url ." with " . $plugin->site_name);
+                    $entry->add_enclosure($enclosure);
+                }
                 return;
             }
         }

とりあえず、これで板に貼ってあるjpgが全部ぶっこ抜けるので、1日1回程度回してやれば良さげ。

_ FlickrにPublish出来たらカッコいいかも

ぶっこ抜いてきたjpgをそのままFlickrにpost出来る、Plagger::Plugin::Publish::Flickrなんてものがあると良さげだなーとか思った。

で、Flickrのメールpost機能を使えば出来るんじゃね? と思い付いたので、P::P::P::Gmailを

attach_enclosures 1

付きで動かしてみたけれど、ぶっこ抜いてきたjpgをそのままメールの添付として送信する訳ではないみたい(まだソースを読んでいない)。

_ フェルマーの最終定理 (新潮文庫)(サイモン シン/Simon Singh/青木 薫)

数学は高校時代に赤点を取るくらいダメなんだけど、そこら中で高評価されているので発注してみた。

俺に読めるかなw

Tags: 散財

_ 404 Blog Not Found:導きの星、小川一水

星雲賞の授賞式に多忙で欠席しなければならないほど書かないと、食べていけないのだろうか?

SF作家の収入と言うと、野尻抱介氏が2002年のSFマガジン掲載のエッセイで年収300万円以下とカミングアウトされていたのを思い出すが、最近の出版事情等を鑑みるに、全般的にあまり儲からなさそうな感じがする(SF者としては寂しい限りだが)。

ラノベは、SFと比較すれば購買層も広そうだし、それなりに売れそうな感じもするが、やはり厳しい世界なんだろうなぁ。

Tags: SF

_ できごと

  • 今日も雨。人間には困ったものだが、気温が低くて、犬は楽そう。
  • 朝、犬の拭くために行ったら、立って待っていた。今まで寝てばかりだったので嬉しい。
  • 帰宅した時も、犬は立って待っていた。