Big Sky :: LuaでTwitterるわ!

久しく、プログラミングの話をしてなかったのでリハビリがてら...

もう既に、色んな方が、色んな言語で、twitterサーバとおしゃべりするライブラリ、アプリケーションを作っていらっしゃいます。

Twitter Fan Wiki Scripts によると

Applescript
~~Jabber~~
Perl
PHP
Python
~~.NET~~
Ruby

など、著明なスクリプト言語では、既にライブラリやアプリケーションとして出来上がっています。

私も愛用している「twitterMobile」も、phpで開発された高機能ライブラリ「Services_Twitter」を使って動作しています。

いやぁ皆さん早いなぁ...
~~ブログネタも無くなるってもんです。汗~~

が、しかし...

~~ここで登場するのがXtalです。ウソです。~~

ここで登場するのがLuaです。

Luaは簡素で、組込みに向いていると言われている程、小さな言語ですが

連想配列
型の遅延バインディング
ガベージコレクション

など、かなりハイレベルな機能も持ち合わせています。
がやはり、ネットワーク通信やXML解析を、標準機能で実装されている訳ではありませんので、どうしても拡張ライブラリが必要になります。
Lua単体で出来ることって言えば、ウメボシの個数を数えるくらいの事しか出来ません。(意味不明

今回は、LuaForgeにも登録されている、以下の拡張ライブラリを使用して、twitterとおしゃべりできるような物を作って行きます。

LuaExpat

Expatライブラリを使用してLuaからXMLを操作出来る拡張ライブラリ

LuaSocket

HTTPやFTP等、各種プロトコルに対応した拡張ライブラリ

まず、通信部分を作って行きましょう。


local get_statuses_url = "http://twitter.com/statuses/friends_timeline.xml"

local auth = string.format("%s:%s", mail, pass)

local chunk = {}



b, c = http.request {

  method = "GET",

  url = get_statuses_url,

  headers = { authorization = "Basic " .. (mime.b64(auth)) .. "==" },

  sink = ltn12.sink.table(chunk)

}

local xml = table.concat(chunk)

LuaSocketのmimeライブラリでBasic認証ヘッダを生成し、LTN12形式のsinkチャンクで文字列化しました。

次にこのXMLをLuaExpatを使用して解析します。


local statuses = lom.parse(xml)



for n1, v1 in pairs(statuses) do

  if v1["tag"] == "status" then

    local date = ""

    local user = ""

    local text = ""

    for n2, v2 in pairs(v1) do

      if v2["tag"] == "created_at" then

        date = get_node_text(v2)

      elseif v2["tag"] == "text" then

        text = get_node_text(v2)

      elseif v2["tag"] == "user" then

        for n3, v3 in pairs(v2) do

          if v3["tag"] == "screen_name" then

            user = get_node_text(v3)

          end

        end

      end

    end

    print(date)

    print(user .. ":" .. text)

    print("")

  end

end

以上でLuaからtwitterのステータスがコンソール出力されます。
うーむ。Expatを使ってXMLを解析する際に出現する、ループネストがイヤらしい...

この処理を使って、実際にステータスを取得してみた結果が、コレだ!
ワンツースリー!

Wed May 23 16:54:44 +0000 2007
*******:MHP2＋Xlinkでオンラインプレイやれたぜ。これは楽しい。

Wed May 23 16:52:50 +0000 2007
*****:Browsing: ニコニコ動画(γ)‐DAKARA CM「送別会篇」 (http://www.nicovideo.jp/watch/sm195564)

Wed May 23 16:45:01 +0000 2007
********:サーコー！サーコー！ワンモアタィム！ヒィアウィゴー！http://www22.atwiki.jp/onemoretime/

Wed May 23 16:42:29 +0000 2007
********:ねこがふてねしている

Wed May 23 16:34:04 +0000 2007
******:今更Web::Scraperつかった。すげべんり。http://tinyurl.com/27aaar

Wed May 23 16:30:37 +0000 2007
******:@******** おやすみなさいです _TL_

Wed May 23 16:28:41 +0000 2007
********:眠いので寝ます。おやすみなさい。<(_ _)>

Wed May 23 16:28:17 +0000 2007
*****:寝れなかったので起きてみた。

※ユーザ名は消してあります。

あとはステータス書き込み処理です。

実はLuaはスクリプト内部のエンコーディングが決められていません。ましてや文字単位の処理などは標準では出来ません。
※最近のLuaは知りません。もしかしたらオフィシャルとしてutf-8か何かに変わったかも知れません。

ですので、今回のステータス書き込み処理では、ステータス文字列がutf-8である前提で記述しています。


local update_status_url = "http://twitter.com/statuses/update.xml"

local auth = string.format("%s:%s", mail, pass)

local chunk = {}



update_status_url = string.format("%s?status=%s", update_status_url, url.escape(status))

b, c = http.request {

  method = "POST",

  url = update_status_url,

  headers = { authorization = "Basic " .. (mime.b64(auth)) .. "==" },

  source = nil

}

ステータス取得時と同様ですが、今回はsocket.urlライブラリでエスケープしたクエリ文字列を送信しています。

いやぁ、twitterのAPIって簡素で良い!
Lua-Gtk2と組み合わせて、GUIを作るってのもいいかも知れません。

一応、上記のスクリプトソースをダウンロード出来るようにしておきます。
ソース内のメールアドレスとパスワードを変更すれば、twitterコマンドラインプログラムとして動作します。
ただし、utf-8限定です。

どうぞパクって行って下さい。

ダウンロード:

Big Sky

2007/05/24

Recent entries from same category

LuaでTwitterるわ!