Fork me on GitHub

2007/10/22

Recent entries from same category

  1. すぎゃーんさんの「Amon2::Liteでmarkdownその他のリアルタイムプレビュー」をfluxflexで動かしてみた。 Hatena
  2. Amon2でGyazo作ってdotcloudにpushしてみた。 Hatena
  3. 今すぐフォローすべきPerl界のスーパーエンジニアをPerlでフォローする、たった一つかもしれない方法 Hatena
  4. CPANモジュールガイドを献本頂きました。 Hatena
  5. 画像の直リンをウンコ画像に差し替えるPlack::Middleware書いた。 Hatena

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

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 11:38 in ソフトウェア::lang::perl | Edit
Tagged as: perl
Bookmarks: add to hatena add to hatena | add to delicious.com | add to livedoor.clip add to livedoor.clip

blog comments powered by Disqus