process "span.entry-content", comment => 'TEXT';
と指定していた部分を
process "span.entry-content", comment => [ 'TEXT', 'MyFilter' ];
と記述出来るようになったのです。
package Web::Scraper::Filter::EnglishToJapanese;
use base qw( Web::Scraper::Filter );
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
sub filter {
my($self, $value) = @_;
my $req = POST( 'http://www.excite.co.jp/world/english/',
[before => $value, wb_lp => 'ENJA'] );
my $data = $Web::Scraper::UserAgent->request($req)->content;
$data =~ s!\x0D|\x0A!!g;
$data =~ s/^.*?<textarea[^>]*name="after"[^>]*>(.*?)<\/textarea>.*?$/$1/;
return $data;
}
1;
use URI;
use Web::Scraper;
my $twitter = scraper {
process 'td.content',
'comments[]' => scraper {
process "span.entry-content", comment => [ 'TEXT', 'EnglishToJapanese' ];
};
result 'comments';
};
my $comments = $twitter->scrape( URI->new("http://twitter.com/miyagawa/") );
use YAML;
warn Dump $comments;
で、結果
---
- comment: ' ウェブログを作られた http://tinyurl.com/2xldch '
- comment: ' ウェブを出荷します:、:フィルタサポートがある削り器0.21_01。 バージョン番号が言うようにこれがdevリリースであるのに注意してください。'
- comment: ' 見ます。'
- comment: ' ダッシュボード懺悔室、Yellowcard、少年は少女が好きです: 多くの誘惑が今月のSF warfieldで http://www.ticketmaster.com.. を見せます。 ... '
- comment: ' 100のコメント. diggの上のトップページングのためのtakesako、おめでとう、ワオ490、diggs、 http://tinyurl.com/255ht7 '
- comment: ' スクリーンからStreoパート2までNFGを聞くのがあります。 輝かしいアルバム'
- comment: ' @hanekomu、うん、それはしゃぶられます。 そこでは、日本で同じです。 請求先の住所が米国にある状態で、運よく私はcreditcardsを持っています。'
- comment: ' Dashboard Confessionalの新しいアルバム http://www.amazon.com/gp/pr.. を購入した、アマゾン'
- comment: ' より古いリンクの取り逃がすことは一時的であるように思えました。私がfriendfeedされることへのスイッチかJaikuに好きでないので、 http://tinyurl.com/2gq4uj は少し救いました。'
- comment: ' したがって、さえずりの丁付けはいつまでも、行きましたか? そうだとすれば、私は、確実にさえずりを使用するのを止めるつもりです。'
- comment: ' http://subtech.g.hatena.ne... のウェブログを作りました。 Yappo++typester++Plagger++'
- comment: ' @Yappo++'
- comment: ' IT Crowd s02e05を見ます。'
- comment: ' ep1を見ます。'
- comment: ' 12ドルでmonoprice.comからの外でコンポーネントケーブルと結合器を私のPSPビデオに購入しました。 すさまじい値'
- comment: ' 作成されて、playstationのための削り器は、給送 http://tinyurl.com/yqbtjb plagger++ウェブを格納して、発行しています:、:削り器++'
- comment: ' http://feeds.feedburner.com.. に加入しました。'
- comment: ' 私の2週間のabsenseでは、私はWaMu、Master、およびCapitalOneから10の+クレジットカード申し出を受けました。 ため息をついてください。'
- comment: ' ビールを飲みます。'
エキサイト翻訳の部分をスクレイピングするんが筋ちゃうんかいな！というツッコミは無しでお願いします。
global:
assets_path: /home/user/plagger/assets
timezone: Asia/Tokyo
log:
level: info
plugins:
- module: Subscription::Config
config:
feed:
- http://twitter.com/statuses/user_timeline/[twitter user].rss
- module: Filter::BreakEntriesToFeeds
config:
use_entry_title: 1
- module: Publish::Wassr
config:
username: [user name]
password: [pass word]
package Plagger::Plugin::Publish::Wassr;
use strict;
use base qw( Plagger::Plugin );
use Encode;
use Net::Wassr;
use Time::HiRes qw(sleep);
sub register {
my($self, $context) = @_;
$context->register_hook(
$self,
'publish.entry' => \&publish_entry,
'plugin.init' => \&initialize,
);
}
sub initialize {
my($self, $context) = @_;
my %opt = (
user => $self->conf->{username},
passwd => $self->conf->{password},
);
for my $key (qw/ apihost apiurl apirealm/) {
$opt{$key} = $self->conf->{$key} if $self->conf->{$key};
}
$self->{wassr} = Net::Wassr->new(%opt);
}
sub publish_entry {
my($self, $context, $args) = @_;
my $body = $self->templatize('wassr.tt', $args);
# TODO: FIX when Summary configurable.
if ( length($body) > 159 ) {
$body = substr($body, 0, 159);
}
$context->log(info => "Updating Wassr status to '$body'");
$self->{wassr}->update( {status => encode_utf8($body)} ) or $context->error("Can't update wassr status");
my $sleeping_time = $self->conf->{interval} || 15;
$context->log(info => "sleep $sleeping_time.");
sleep( $sleeping_time );
}
1;
__END__
=head1 NAME
Plagger::Plugin::Publish::Wassr - Update your status with feeds
=head1 SYNOPSIS
- module: Publish::Wassr
config:
username: wassr-id
password: wassr-password
=head1 DESCRIPTION
This plugin sends feed entries summary to your Wassr account status.
=head1 CONFIG
=over 4
=item username
Wassr username. Required.
=item password
Wassr password. Required.
=item interval
Optional.
=item apiurl
OPTIONAL. The URL of the API for wassr.jp. This defaults to "http://wassr.jp/user/xxx/statuses" if not set.
=item apihost
=item apirealm
Optional.
If you do point to a different URL, you will also need to set "apihost" and "apirealm" so that the internal LWP can authenticate.
"apihost" defaults to "api.wassr.jp:80".
"apirealm" defaults to "API Authentication".
=back
=head1 AUTHOR
Yasuhiro Matsumoto
=head1 SEE ALSO
L<Plagger>, L<Net::Wassr>
=cut
assets/plugins/Publish-Wassr/wassr.tt
[% IF entry.body %][% entry.body_text %][% ELSE %][% entry.title_text %][% END %] [% entry.permalink %]
deps/Publish-Wassr.yaml
name: Publish::Wassr
author: Yasuhiro Matsumoto
depends:
Net::Wassr: 0
このブログを応援する
