先日、twitter API の仕様が変更になって、基本認証が使えなくなった。
そのため、以下の記事のスクリプトが動かなくなった。
そこで、oAuthに対応したものをご紹介。
目的
Twitterの検索メモに登録されたキーワードのリストを取得して、タイムラインを検索し、マッチしたものを公式リツイートする。
- 自分自身の投稿はリツイートしない。
- RTや@が含まれる投稿はリツイートしない。
- すでにリツイートした投稿はリツイートしない。
- ログに保存されたIDより古い投稿はリツイートしない。
アプリケーション登録申請
oAuth認証を行うには以下の情報が必要なので、アプリケーション登録申請を行う。
- Consumer key
- Consumer secret
- Access Token
- Access Token Secret
実用！ PerlでコマンドラインからTwitter投稿（OAuth対応） – perl-mongers.org
ソース
以下のような感じ。
13行目〜17行目を書き換えること。
あとは、Cron等に登録して使用する。
#!/opt/local/bin/perl -wT
#binmode(STDOUT, ":utf8");
use strict;
use Encode;
use Net::Twitter;
use URI::Escape;
use LWP::Simple;
use XML::DOM;
# Config
my $user = ''; # Twitter のユーザー名
my $key = ''; # Consumer key
my $secret = ''; # Consumer secret
my $token = ''; # Access Token
my $tsecret = ''; # Access Token Secret
my $lang = 'ja';
my $api = 'http://search.twitter.com/search.atom';
# do not need to edit
my $max_length = 140;
my $home;
if (-d $ENV{'HOME'} && $ENV{'HOME'} =~ /^(\/.+)$/) {
$home = $1;
}
my $log = $home.'/.twitbot.txt'; # 最新のIDを保存して次回以降はこのID以下は無視
if (!-e $log) {
open (OUT, ">", $log);
close(OUT);
}
my $max_id = 0;
open (IN, "<", $log);
my $n = <IN>;
if ($n) {
chomp $n;
$max_id = $n;
}
close(IN);
# connect to twitter
my $twt = Net::Twitter->new(
traits => [qw/API::REST OAuth WrapError/],
consumer_key => $key,
consumer_secret => $secret
);
$twt->access_token ($token);
$twt->access_token_secret($tsecret);
my $sch = $twt->saved_searches();
my %posted;
my $since = $max_id;
foreach (@$sch) {
my $k = uri_escape_utf8($_->{query});
my $url = $api.'?show_user=true&q='.$k.'&lang='.$lang;
my $atom = get($url);
my $parser = new XML::DOM::Parser;
my $doc = $parser->parse ($atom);
my $nodes = $doc->getElementsByTagName ("entry");
for (my $i=0; $i<$nodes->getLength; $i++) {
my $node = $nodes->item($i);
my $txt = getvalue($node, 'title');
my $id = getvalue($node, 'id');
if ($id =~ /([0-9]+)$/) {
$id = $1;
} else {
die ('can not get id');
}
if ($max_id < $id) {
$max_id = $id;
}
# 以下に該当するものはRTしない
# 自分の投稿
# RT（スペース）が含まれる投稿
# @が含まれる投稿
# すでにRTした投稿
# ログに保存されたIDより古い投稿
if ($txt !~ /^$twitter_user/ && $txt !~ /RT\s/ && $txt !~ /\@/ && !$posted{$id} && $since < $id) {
$posted{$id} = 1; # 重複投稿しないためのフラグ
eval {$twt->retweet($id)};
if ($@) {
warn "update failed because: ".$@."\n";
}
}
}
}
open (OUT, ">", $log);
print OUT $max_id;
close(OUT);
exit;
sub getvalue {
my $node = shift @_;
my $tag = shift @_;
my $n = $node->getElementsByTagName($tag)->item(0);
return $n->getFirstChild->getNodeValue;
}
