GaucheでTwitterに投稿する

絶対にすでに誰かやっていると思いますが、Gaucheを使ってTwitterに投稿するプログラムを書いてみました。
PerlやRuby、Pythonのような、スクリプト的な用途はSchemeが便利です。

; Twitterに投稿する
(use rfc.http)
(use rfc.base64)
(use rfc.uri)

(define (twitter-update status username password)
  (http-post "twitter.com"
             (string-append "/statuses/update.json?status="
                            (uri-encode-string status))
             ""
             :Authorization (string-append "Basic "
                                          (base64-encode-string
                                            (string-append username
                                                           ":"
                                                           password)))))

(define (main args)
  (twitter-update "本文" "username" "password")
  0)

twitter-update関数を使って投稿します。
使う時は、「本文」は投稿する内容、「username」はTwitterのID、「password」はパスワードに書き換えます。
これはBASIC認証を使っているので、OAuthを使うようにしないと今後使えなくなるかもしれません。