スライド 0

Size: px

Start display at page:

Download "スライド 0"

もりよりしばもと
4 years ago
Views:

1 ビギナーだから使いたい O/R マッパー ~Teng を使った開発 ~ Hirobanex(Akabane Hiroyuki) @Perl Beginners #3

2 コンテンツ Teng を使いたい 3 つの理由ビギナーにオススメの Teng の導入方法本来の O/R マッパーの効用 1

3 Teng を使いたい 3 つの理由 DBI はよくわからん O/R マッパーだと開発が抜群に早くなるコード量が少ないし勉強になる 2

4 生 DBI はよくわからんコンストラクション時の設定って? セレクト系メソッドどれ使えばいい? ドキュメントが長すぎてどこ読めば? トランザクションって? 突然コネクション切れる? 3

5 セレクト系メソッドどれ使えばいい? ref とか array とか hash とか頭がパンクします fetchrow_arrayref fetchrow_array fetchrow_hashref fetchall_arrayref fetchall_hashref selectrow_array selectrow_arrayref selectrow_hashref selectall_arrayref selectall_hashref selectcol_arrayref 4

6 O/R マッパーだと開発が抜群に早くなる複数データ群をリレーションつけて登録する場合のコード比較 use DBI; = ( [26,'hiro'], [27,'bane'], my $dbh = DBI->connect("DBI:mysql:db_name;", "root", "pass",{ AutoCommit => 0, for my $data (@data_set) { my ($age,$name) my ($age_id) = $dbh->selectrow_array(q{ SELECT id FROM age WHERE age =?,undef,$age unless ($age_id) { my $sth = $dbh->prepare(q{ INSERT INTO age (age) VALUES (? ) $sth->execute($age DBI #mysql 限定 $age_id = $dbh->last_insert_id(undef, undef, 'age', 'id' #Teng-0.14_05 use DBI; use Teng; use Teng::Schema::Loader; = ( [26,'hiro'], [27,'bane'], my $dbh = DBI->connect("DBI:mysql:db_name;", "root", "pass", my $teng = Teng::Schema::Loader->load( dbh => $dbh, namespace => 'MyAPP::DB', $teng->load_plugin('findorcreate' my $txn = $teng->txn_scope; for my $data (@data_set) { my ($age,$name) Teng my $row = $teng->find_or_create('age',{ age => $age $teng->insert('user', { age_id => $row->id, name => $name $txn->commit; my $sth = $dbh->prepare(q{ INSERT INTO user (age_id, name) VALUES (?,?) $sth->execute($age_id, $name $dbh->do('commit' 20 行 7 行 5

7 コード量が少ないし勉強になるオーサーは日本人のnekokakさん不明点は誰かに聞けばわかりそう日本語情報豊富挙動確認がコード量が少ないため楽コードをおうと Perlの勉強になる 6

8 ビギナーにオススメの Teng の導入方法 DBI もよくわからんけどとにかく早く使ってみたい人向け Tengのnew( オブジェクトの作り方 ) SELECT INSERT UPDATE DELETE トランザクション 7

9 Teng の new( オブジェクトの作り方 ) Teng::Schema::Loader というのを使うと楽 #Teng-0.14_05 use strict; use warnings; use DBI; use utf8; use Teng; use Teng::Schema::Loader; sub teng { my $dbh = DBI->connect("dbi:SQLite:./users.db", '', '', +{ Callbacks => { connected => sub { my $conn = shift; $conn->do(<<eof # テーブルの構造をココに書く CREATE TABLE user ( id INTEGER PRIMARY KEY, user_name varchar(10), sex varchar(10) default 'male', age INTEGER default 20, EOF return;,, sqlite_unicode => 1,#MySQLは mysql_enable_utf8 => 1, my $teng = Teng::Schema::Loader->load( dbh => $dbh, namespace => 'MyDB::Schema' とりあえずメソッド化 #Teng-0.14_05 package MyDB; use strict; use warnings; use utf8; use DBI; use Teng; use Teng::Schema::Loader; 永続化 our $TENG; sub teng { $TENG = do { my $dbh = DBI->connect("dbi:SQLite:./users.db", '', '', +{ Callbacks => { connected => sub { my $conn = shift; $conn->do(<<eof CREATE TABLE user ( id INTEGER PRIMARY KEY, user_name varchar(10), sex varchar(10) default 'male', age INTEGER default 20, EOF return;,, sqlite_unicode => 1, Teng::Schema::Loader->load( dbh => $dbh, namespace => 'MyDB::Schema' 1; 8

10 SELECT SQL 文の書ける search_by_sql メソッドを使う use MyDB; 複数行の取り出し use MyDB; 1 行だけの取り出し = MyDB->teng->search_by_sql( q{#sql 文が普通にかける SELECT id, user_name FROM user WHERE sex =? AND age >?, ['male',20]#bind 値は配列のリファレンスで設定 )->all; my $row = MyDB->teng->search_by_sql( q{ SELECT * FROM user WHERE user_name =?, ['hirobanex'] )->first; #Row オブジェクトなるものがいる for my $row (@users) { # カラムは Row オブジェクトに # カラム名でメソッド呼び出し warn $row->id; warn $row->user_name; 9

11 INSERT UPDATE DELETE SQL 文の書ける do メソッドを使う use MyDB; INSERT MyDB->teng->do(q{ INSERT INTO user ( user_name,sex,age ) VALUES (?,?,?,undef,('hirobanex','male','26') # error ハンドリングは Teng のほうでやってくれている UPDATE MyDB->teng->do(q{ UPDATE user SET user_name =?,age =? WHERE user_name =?,undef,('bane','27','hirobanex') DELETE MyDB->teng->do(q{ DELETE user WHERE user_name =?,undef,('bane') 10

12 トランザクション囲うだけ use MyDB; my $teng = MyDB->teng; my $txn = $teng->txn_scope; for my $user_name ('hiro','bane','ytnobody') { $teng->do(q{ INSERT INTO user (user_name) VALUES (?,umdef,$user_name $txn->commit; hachioji.pm 11

13 実際の O/R マッパーの効用 Teng を使いこなしてやれることを広げるためのキーワードやれることトランザクションをシンプルに書ける Teng 実装 DBIx::TransactionManager 突然コネクションが切られることはない $dbh->fetch('active'), $dbh->ping の確認コンストラクション設定を楽にするリファレンスとかでかっこ良く条件文を書く SQL::Maker インサートしたと同時にその中身とったり便利メソッドつくる Teng::Row(Row オブジェクト ) FindOrCreate, BulkInsert など各種プラグイン SQL 文を発行するタイミングでなんかする inflate,deflate(trigger はない ) SELECT の IN 構文になげるバインド値に配列リファレンスを使いたい search_named メソッド 12

14 その他 Teng リファレンス cpanm Teng 0.14_ 最後はソースコードも読もう 13

15 最後に YAPC::Asia2012 のトークに応募しました! 興味があったらいいね! などお願いしますっ! 14

Symfoware(R) Server Perlドライバユーザーズガイド

Symfoware(R) Server Perlドライバユーザーズガイド R Active...49 ActiveKids...53 AutoCommit...88 available_drivers...34