NeverBlog::Likk::Unexistable;

見なかったことにして下さい

よせなべ@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);

自分の発言として発言するより、ツッコミで発言させように変えようかなと、ちょっと思案中。
あと、連続で同じ発言してしまったりなど修正したいところ多数。