2007/10/26

Recent entries from same category

  1. Perl Quizに答えてみる(2) Hatena
  2. cpanモジュール"Export::Lexical"が面白い Hatena
  3. Perl Quiz に答えてみる Hatena
  4. Cache::Memcached::Fastをwin32にポーティングしてみた。 Hatena
  5. Cache::Memcached::Fastをwin32にポーティング出来たのでベンチマーク取ってみた。 Hatena

はてな
今日はもう寝ます。
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 04:49 in ソフトウェア::lang::perl | WriteBacks (1) | Edit

Bookmarks: add to hatena add to hatena | add to delicious.com add to delicious.com | add to livedoor.clip add to livedoor.clip | add to buzzurl add to buzzurl | add to fc2bookmark add to fc2bookmark | add to Yahoo Bookmark add to Yahoo Bookmark | add to Pookmark add to Pookmark | add to NiftyClip add to NiftyClip | この記事へのリンク

WriteBacks

CGI BOY 入門とperl、PHPの基礎を学びましょう

cgiをperlとPHPで入門レベルで作りました。

Posted by CGI BOY 入門とperl、PHPの基礎を学びましょう at 2007/11/20 (Tue) 07:23:03

TrackBack ping me at
Post a comment

writeback message: Ready to post a comment.