よせなべ@wassr
遅くなりましたが、報告。
人工無能よせなべをWassrに登録して、適当に発言させてます。
http://d.hatena.ne.jp/nekokak/20070606/1181109551 の
Net::Wassr を使わせて貰ってます。
以下ソース一部晒し。
#!/usr/local/bin/perl package main; use strict; use warnings; use Net::Wassr; #わっさーにログイン my $wassr = Net::Wassr->new( 'user' => 'ユーザー名', 'passwd' => 'パスワード'); #購読中のユーザーの発言 my $c = $wassr->friends_timeline(); my $now = time; for my $line(@$c){ my $epoc = $line->{'epoch'} - 3600 * 9;#時差修正 my $text = $line->{'text'};#発言内容 my $user = $line->{'user'}->{'screen_name'};#発言した人 my $ago = $now - $epoc; next if($line->{'user_login_id'} eq 'ユーザー名');#自分の発言は除外 last if($ago > 3600*X);#X時間より前の発言には反応しない my $res = ##購読中のユーザーの発言を受け取って、ごにょごにょ人工無能っぽいことして、発言内容を決める。## if($res ne ''){ #うまくよせなべが発言作成できたら、Wassrで発言する my $args = { status => $res }; $wassr->update($args); last; } } exit(0);
自分の発言として発言するより、ツッコミで発言させように変えようかなと、ちょっと思案中。
あと、連続で同じ発言してしまったりなど修正したいところ多数。