Net::Twitter::Scraper

perl twitter coderepos

http://coderepos.org/share/browser/lang/perl/Net-Twitter-Scraper
ぜんぜんできてないけどコミッた。他力なんとかってやつです。
Twitter API を使わずにスクレイピングだけで Net::Twitter とそれなりに互換の機能＋αを実装しようかと。
今ならみんな大好き Web::Scraper のコード書き放題だよ。

#!/usr/bin/perl
use strict;
use warnings;

use YAML;
use Net::Twitter::Scraper;

my $tw = Net::Twitter::Scraper->new(
  username => 'xxxxxx',
  password => 'xxxxxx'
);

my $res = $tw->archive();
binmode STDOUT, ':utf8';
print Dump $res;

[hetappi@lily]% ./nts.pl 
---
- created_at: Sun Jun 22 12:11:26 +0000 2008
  id: 840881247
  source: "<a href=\"http://d.hatena.ne.jp/Kiri_Feather/20071121\">Tween</a>\n"
  text: きたー
- created_at: Sun Jun 22 11:53:09 +0000 2008
  id: 840873716
  source: "<a href=\"http://d.hatena.ne.jp/Kiri_Feather/20071121\">Tween</a>\n"
  text: みりんが切れているという信じたくない状況
...