Twitterで何かするBotの作りかた 発言編

Perl Twitter

※現在は、Twitterの認証方式がOAuthおよびxAuthのみになったため、ここに書いたようなBASIC認証でのBot作成はできません。

いろいろと知っておいて欲しいことがあるんですが、なにはともあれ Net::Twitter モジュールを使ってみましょう。UTF-8フラグとか Encode::encode/decode あたりの話は、下記サイトが詳しくてオススメです。

http://www.rwds.net/kuroita/program/Perl_unicode.html

さて、なんでもいいから発言させてみましょうか。 bot.pl として下記のファイルを用意しました。文字コードはUTF-8にしておきましょう。でないとPostした内容が文字化けしてしまいます。

#!/usr/bin/perl -w

use strict;
use Net::Twitter;

#-- ログイン --#
my $twit = Net::Twitter->new(
          username=>"shiget84get" #ユーザー名
        , password=>"********"    #パスワード
      );

#-- しげっとPost --#
$twit->update("しげっとーしげっとー [Perl(Net::Twitter)]");

で、コレを実行してやると…

chmod +x bot.pl
./bot.pl

ちゃんと発言しましたね！ → しげっとげっと on Twitter: "しげっとーしげっとー [Perl(Net::Twitter)]"

(つづく)

本エントリの関連Post↓↓

3 on Twitter: "Kosen Conference Standards 1：しげっとーbot："しげっとーしげっとー[言語名(ライブラリ名)]"ってpostするtwitterbot。たまに"野球しようぜ[言語名(ライブラリ名)]"等ともpostする。"
はるかさん on Twitter: "コード: ruby -e 'loop{ Twitter::Client.new(:login=>'ログイン名', :password=>'パスワード').status(:post, 'しげっとーしげっとー'); sleep 300}'"

他の言語でやる方の参考になりそうなサイト↓↓

Twitter API - TwitterまとめWiki