どうやら「<3」でハートマークが付くようです。
今日はバレンタインデーって事で、こんなもん作ってみました。
WWW::Mechanize::AutoPagerでfriends全員をハッシュ一覧化し、Net::Twitterで全員にこのハートを送るperlスクリプトを作ってみました。
宜しければどうぞ！
って私はやりませんが...
※ちなみに本気でやるなら、ちゃんとsleep入れて下さいね。
#!/usr/bin/perl
use warnings;
use strict;
use WWW::Mechanize;
use WWW::Mechanize::AutoPager;
use Web::Scraper;
use Net::Twitter;
my $username = 'username';
my $password = 'password';
my $twitter_friends = scraper {
process 'tr.vcard',
'friends[]' => scraper {
process 'td strong a', name => 'TEXT';
};
result 'friends';
};
my $u = 'http://twitter.com/friends/';
my $mech = WWW::Mechanize->new(timeout => 10);
$mech->add_header('Accept-Encoding', 'identity');
$mech->get('http://twitter.com/login');
$mech->submit_form(
form_number => 2,
fields => {
username_or_email => $username,
password => $password,
},
button => 'commit',
);
$mech->autopager->load_siteinfo();
my $friends;
while($u) {
my $res = $twitter_friends->scrape( $mech->get($u)->content );
eval { push @$friends, @{$res}; };
last if ( $@ or !defined($mech->next_link) );
$u = $mech->next_link;
}
my $twit = Net::Twitter->new( username => $username, password => $password );
foreach my $friend (@$friends) {
my $name = $friend->{name};
$result = $twit->update("\@$name <3");
}
って俺、男だ。
