Lisp Tutorial for Pythonista : Day 4

Lisp tutorial for Pythonista.
Day #4 : Work with RDBMS

Ransui Iso
Strategic Technology Group, X-Listing Co, Ltd.

今日は予告通り SQL ！

なんだかんだで RDBMS 使えないと
仕事では困っちゃう

QuickLisp でインストール

clsql と clsqlmysql と clsqlpostgresql
をインストールしてくださいませ

REPL 環境下でテストしてみる

● とりあえず select
CLUSER> (usepackage :clsql)
CLUSER> (connect '("achernar" "stats_master" "<username>" "<password>")
             :databasetype :mysql)
#<CLSQLMYSQL:MYSQLDATABASE achernar/stats_master/<username> OPEN {100343DEE1}>
CLUSER> (query "select id, client_id from campaign_base limit 2")
((1712 3736) (815 3371))
("id" "client_id")

● 多値関数なので…
CLUSER> (multiplevaluebind (rows fieldnames)
             (query "select * from campaign_base limit 2")
           (dolist (row rows)
             (loop :for value :in row
                   :for fieldname :in fieldnames
                   :do (format t "~a : ~a~%" fieldname value))
             (terpri)))
(terpri) ：標準出力に改行を送る関数

プログラムで使う場合は

● 例によって asdf でロードする
●
(asdf:oos 'asdf:loadop :clsql)
(asdf:oos 'asdf:loadop :clsqlmysql)
●
(asdf:oos 'asdf:loadop :clsqlpostgresql)
● SLIME の REPL で使う時も手動でロードしとく
● Backend は使いたいやつだけで OK よ

● パッケージ名は clsql
● いちいちパッケージ名解決 (clsql:query ... ) とか面倒な人は
(usepackage :clsql)

● 個人的には use-package はあまりオススメしないけどね。
● Python で言うところの from clsql import * だし…

CLSQL はマニュアルが充実
http://clsql.b9.com/manual/index.html
ここ読めば普通は困らないと思う

これだけだと
あまりにアレなので
いくつか Tips など

MySQL を使う場合

● テーブル名の大文字 / 小文字区別問題
● Linux 上で動作している MySQL はデフォルトでテーブル名の大文
字と小文字を区別する ( 定義時の名前がそのまま使われる )
● 標準 SQL では区別しない
● CLSQL は標準準拠 ( 基本的に大文字でサーバに送信する )

テーブル名が見つからないと怒られる

● /etc/mysql/my.cnf に以下を追加
● 追加場所 [mysqld] セクション
# for Case insensitive
lower_case_table_names = 1

詳細： http://dev.mysql.com/doc/refman/5.1/ja/identifier-case-sensitivity.html

connection オブジェクト
● connect 関数
● データベースへの接続オブジェクトを作成する
● 同じ属性の接続を複数作ろうとするとデフォルトではエラー！
● :ifexists キーワード引数でどうするかを決める
– :new 新しく接続オブジェクトを作る
– :warnnew 警告出すけどオブジェクトを作る
– :error エラーとする
– :old すでに開いている接続オブジェクトを返す
– :warnold 警告出して、既存の接続オブジェクトを返す
– デフォルト値は *connectifexists* 変数で設定できる

● connected-databases 関数
● 現時点で有効な全ての接続オブジェクトをリストで返す

● *default-database* 変数
● 既定の接続オブジェクトを保持する

接続を切る

● disconnect 関数を使う
● :database キーワード引数で対象の接続オブジェクトを指定する
● 省略時は clsql:*defaultdatabase* が指定されたものとみ
なされる

CLUSER> (defparameter dbconn nil)

CLUSER> (setf dbconn
(connect '("achernar" "stats_master" "xlisting" "xlisting")
:databasetype :mysql))

CLUSER> (eq dbconn *defaultdatabase*)

CLUSER> (disconnect :database dbconn)

CLUSER> *defaultdatabase*

SQL Quote の方法
● SQL 関数を使えば簡単
CLUSER> (format nil "select * from foo where bar in ~a"
            (sql '("Hello" "world")))

CLUSER> (format nil "select * from foo where bar = ~a"
            (sql " 波浪ワールド 'Hello World'"))

CLUSER> (enablesqlreadersyntax)

CLUSER> (let ((msg "Hello 'lisp' world!"))
           (sql [select [foo] [bar] :from [baz] :where [= [name] msg]]))

CLUSER> (sql [select
                [client_base name]
                [agency_base name]
                  :from '([client_base] [agency_base])
                  :where [= [client_base agency_id] [agency_base id]]])

値の埋め込みは format 使うよりも SQL テンプレの方がお勧め

SQL テンプレ

● Lisp の構文そのものが拡張されちゃうので注意
● グローバルに有効化： (enable-sql-reader-syntax)
● グローバルに無効化： (disable-sql-reader-syntax)
● ローカルに有効化： (locally-enable-sql-reader-syntax)
● ローカルに無効化： (locally-disable-sql-reader-syntax)

● [ と ] に意味が追加されてる
● Reader マクロという機能を使っている

取得した行について繰り返し処理

● do-query とか loop フォームが便利
CLUSER> (doquery ((agencyname clientname)
                    (sql [select [agency_base name] [client_base name]
                      :from '([agency_base] [client_base])
                      :where [and [= [agency_base id] [client_base agency_id]]
                                  [= [agency_base id] 22]]]))
           (format t "~a : ~a~%" agencyname clientname))

CLUSER> (loop :for (agencyname clientname) being each tuple in
                    (sql [select [agency_base name] [client_base name]
                      :from '([agency_base] [client_base])
                      :where [and [= [agency_base id] [client_base agency_id]]
                                  [= [agency_base id] 22]]])
            :do (format t "~a : ~a~%" agencyname clientname))

結果１行毎にガッツり処理したいとき do-query
カウントしたりちょっと加工して収集しなおしたいとか loop

て感じで使い分けるといいかも。
まぁこのへんは好みというかソースが見やすくなるほうを優先するのが吉。

関数に仕立ててみる

● こんな感じとか
(defun getclientinfobyids (ids)
  (let ((result nil))
    (multiplevaluebind (rows fieldnames)
        (query (sql [select [*] :from [client_base] :where [in [id] ids]]))

       (dolist (row rows)
         (push
           (loop :for value in row
                 :for fieldname in fieldnames
                 :collect (cons fieldname value)) result)))
    result))

CLUSER> (getclientinfobyids '(1 3 5))

CLUSER> (dolist (result (getclientinfobyids '(1 3 5)))
           (print (cdr (assoc "name" result :test #'string=))))

connection pool

● こんな感じでやるといいかも
(defun getclientinfobyids (ids &key (database clsql:*defaultdatabase*))
  (let ((result nil))
    (multiplevaluebind (rows fieldnames)
        (query (sql [select [*] :from [client_base] :where [in [id] ids]])
                 :database database)
       (dolist (row rows)
         (push
          (loop :for value in row
             :for fieldname in fieldnames
             :collect (cons fieldname value)) result)))
    result))

(withdatabase
    (dbconn '("achernar" "stats_master"
               "<username>" "<password>") :pool t :databasetype :mysql)

           (getclientinfobyids '(1 2 3) :database dbconn))

create / drop table

● ここでもテンプレ使えます
CLUSER> (createtable [test_table]
                       '(([id] integer :notnull :unique :primarykey)
                         ([name] (varchar 255) :notnull)
                         ([status] boolean :notnull)))

CLUSER> (tableexistsp [test_table])

CLUSER> (droptable [test_table])

CLUSER> (tableexistsp [test_table])

insert / update / delete

● それぞれ関数があるので使いましょう
CLUSER> (insertrecords :into [test_table]
                         :attribute '(id name status)
                         :values '(1 "James 'random' Hacker" 1))

CLUSER> (select [*] :from [test_table])

CLUSER> (updaterecords [test_table]
                         :avpairs '((name "foo bar")
                                     (status 0))
                         :where [= [id] 1])


CLUSER> (deleterecords :from [test_table] :where [= [name] "foo bar"])


マニュアルをよく読むべし

Lisp 系のマニュアルの書かれ方はちょっと独特だけど
CLSQL のマニュアルは例がいっぱいあるので大いに参考にしよう

宿題

前回の宿題掲示板のストレージを
データベースにしてね

ちょこっと改造すれは OK のハズなので、簡単でしょ？

connection pool を使って
withdatabase フォームを使うのがお勧めかも

Lisp Tutorial for Pythonista : Day 4

More Related Content

What's hot (20)

Similar to Lisp Tutorial for Pythonista : Day 4 (20)

More from Ransui Iso (14)

Lisp Tutorial for Pythonista : Day 4