Big Sky

2008/01/31

TTYShareのttyファイル見つけるFilter::FindEnclosuresスクリプト書いた

今日はもう寝ます。
ttyは明日ミマス。

typester++


sub handle {

    my ($self, $url) = @_;

    $url =~ qr!http://ttyshare.com/rec/\w+!;

}



sub find {

    my($self, $args) = @_;

    

    my $uri = $args->{url};

    my $response = LWP::UserAgent->new->post(

        $uri,

        ['download' => 1]);

    if($response->content =~ m/<div id="p-(.+?)" class="player">/) {

        my $enclosure = Plagger::Enclosure->new;

        $uri = sprintf('http://ttyshare.com/static/tty/%s/%s/%s/%s',

            substr($1, 0, 1), substr($1, 0, 2), substr($1, 0, 4), $1);

        $enclosure->url($uri);

        $enclosure->type('application/x-ttyrec');

        $enclosure->filename("$1.tty");

        return $enclosure;

    }



    return;

}

Posted at by mattn

WWW::CommentGetterでブラウザからは開き辛いページのコメント欄もゴッソリ

どなたかのはてなブックマークで、「コメント欄」なんてのを見つけたけど、タイトル見るとどうにも開き辛い...
皆さんそんな事を思った事はありませんか？
そんな時にはコレ！

WWW::CommentGetter
assetsにYAML置いて、URL指定すればコメントがゴッソリ！

/home/user/WWW-CommentGetter/assets/spalog-dotei.yaml


---

handle: http://spalog.net/dotei/.*

comments:

  body: div.dotei03-ct

こんなYAML置いて
/home/user/WWW-CommentGetter/spalog-dotei-comment.pl


use strict;

use warnings;

use Encode;

use WWW::CommentGetter;



my $assets_dir = '/home/user/WWW-CommentGetter/assets';

my $getter = WWW::CommentGetter->new($assets_dir);



use YAML;

binmode STDERR, ':encoding(shiftjis)' if $^O eq "MSWin32";

warn Dump $getter->get('http://spalog.net/dotei/ent_1922.php');