Monday, December 5, 2011
ツイッターボット 切り取り線編
もちろんperlなんて書けないので、イロイロなところからパクってきただけですが、
なんとか動きましたww
これは切り取り線のボットですね。
個人的には意外と便利に思います。
#!/usr/bin/env perl use strict; use warnings; use utf8; use Net::Twitter; use Time::Piece (); use Jcode; # Twitter OAuth key and token my $consumer_key = 'my key'; my $consumer_key_secret = 'my key secret'; my $access_token = 'my token'; my $access_token_secret = 'my token secret'; # Twitter OAuth my $nt = Net::Twitter->new( traits => ['API::REST', 'OAuth'], consumer_key => $consumer_key, consumer_secret => $consumer_key_secret, ); $nt->access_token($access_token); $nt->access_token_secret($access_token_secret); my $now = Time::Piece::localtime->strftime('%H:%M'); printf $now; my $tweet = '<--------------- ' . $now . ' --------------->'; Jcode::convert($tweet, 'utf8'); my $res = $nt->update($tweet); exit;
Add comment
Fill out the form below to add your own comments