2008/01/31


今日はもう寝ます。
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




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

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');
 こんなコード書けばコメント欄がゴッソリ!
実行結果は各人で...

tokuhiromさん++
Posted at by




これまた適当に...
/lang/perl/plagger/lib/Plagger/Plugin/Publish/NiftyClip.pm - CodeRepos::Share - Trac
/lang/perl/plagger/lib/Plagger/Plugin/Publish/Pookmark.pm - CodeRepos::Share - Trac
NiftyClipは結構とUIが使いやすい気がした。
あと、POOKMARK Airlinesの方はjavascriptがonじゃないとログイン出来ないって事にハマりかけた。あとtwitterにポストする機能があるので、default_no_twitterという設定で無効に出来るようにした。

これで、私が同期しているソーシャルブックマークは
  • Publish::Delicious
  • Publish::LivedoorClip
  • Publish::Buzzurl
  • Publish::GooBookmark
  • Publish::NiftyClip
  • Publish::Pookmark
となった。
収拾がつかなくなってきた。
Posted at by