DBI->connectの第4引数の内容は設定ファイルに書かないほうが良い | おそらくはそれさえも平凡な日々
Perlでデータベースに接続する場合は以下の様な感じになります。どんなORMなりラッパーなりもDBIを利用しているモジュールは内部的にはこういうことをしているわけです。 DBI->connect($dsn, $user, $password, { mysql_enable_utf8 => 1, RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, AutoInactiveDestroy => 1, }); 第1〜第3引数は環境によって差異があるので設定ファイルに情報を持たせると思います。ただ、それにつられて第4引数も設定ファイルに書いてしまうのが散見されますが、これは良くない。 第4引数の値はプロジェクトでは固定に決まっているので、設定ファイルによって自由度を持たせる必要性が全く無いというかむしろ悪。この人の環境ではテストに通
DBIx::Handler と mysql_enable_utf8 と utf8mb4: Days on the Moon
Perl で MySQL サーバーに接続するとき、DBIx::Handler を使っています。 my $handler = DBIx::Handler->new( $dsn, $username, $password, { RaiseError => 1, RootClass => 'My::DBI', mysql_enable_utf8 => 1, }, ); しかし、これだと "𠮷" (U+20BB7、いわゆる「つちよし」) など BMP 外の文字を保存しようとしたとき、テーブルの文字コードが utf8mb4 であっても "????" (疑問符 4 文字) に化けてしまいます。 ググったところ、mysql_enable_utf8 => 1 を指定した時点で DBD::mysql が接続時の文字コードを utf8 にしてしまうのが問題だそうです。(cf. おそらくはそれさえも平凡な日々
おそらくはそれさえも平凡な日々: DBIx::TransactionManager::EndHookが便利だけどCPANに上がっていない件
後輩だか先輩だかわからないsoh335さんが作った DBIx::TransactionManager::EndHook が地味にかなり便利。 入れ子になったtransactionでcommitが走った時に走らせたい処理を登録できます。 RDBだけで完結しない処理(ログやKVS連携等)を書きたい時に有用です。 何が嬉しいかは、335さんのエントリにも書いてあるんです が、例えば、ひとつのトランザクションの中で、 アイテム付与メソッド ボーナス付与メソッド みたいなメソッドを呼び出されていて、それぞれのメソッドの中でログを投げていた りとかするとします。コードにすると以下のような感じ。 (Tengっぽく書いてますが、DBIx::TransactionManager直でも全然構いません) my $txn = $teng->txn_scope; $user->take_item($item); $
DBIx::QueryLog + grc - soh335 memo
DBIx::QueryLog で DBIX_QUERYLOG_EXPLAIN=1 ってやると explain の結果も同時に出力してくれる A stylesheet author's guide to terminal colors を使うと特定の出力に対してカラーリングが出来る。 # filesort regexp=Using\sfilesort colours=red count=more複数作りたい時は ====== で区切る 下記のように実行すると DBIX_QUERYLOG_EXPLAIN=1 plackup -MDBIx::QueryLog 2>&1 grcat path/to/confUsing filesort っていう文字が出た時に赤くなるので、ぱーっと手元で確かめる時に便利かなぁという感触。 手元に気軽に動かすものがなかったので画面は割愛。
DBIのconnect_cachedのいろいろ - $shibayu36->blog;
最近DBへの接続をリクエスト単位ではなくリクエストを処理するプロセス単位(Starmanのworkerプロセス単位)でキャッシュしたいということがあって、DBIのconnect_cachedを使うことになった。Scope::Container::DBIでももしかしたら出来るのかもしれないけど、とりあえずconnect_cachedで実装した。そこでいろいろはまったのでメモ。 connect_cachedについて perldocに connect_cached is like "connect", except that the database handle returned is also stored in a hash associated with the given parameters. If another call is made to connect_cached wit
DBIx::QueryLogを使ってちゃんとSQLが流れているかテストする - $shibayu36->blog;
DBIのconnectのCallbacksなどでSQLを実行している時とかに、実際にSQLが流れているのかチェックしたい時がある。そういう時どうするのがベスト・プラクティスなのかわからないのだけど、DBIx::QueryLogを使ったら一応できたのでメモ。 テストしたい状況 package My::DBI; use strict; use warnings; use DBI; sub connect { my ($dsn, $username, $password) = @_; my $dbh = DBI->connect($dsn, $username, $password, { Callbacks => { connected => sub { my $dbh = shift; $dbh->do("SET NAMES utf8") or warn $dbh->errstr; retur
mysql_client_found_rows=0 - soh335 memo
DBD::mysql で insert on duplicate をした際に $sth->rows の返す結果が insert されなかった場合: 1 insert された場合: 1 update された場合: 2 となっていて mysql に繋いで直接コマンドを打った場合の affected rows と違って困るなぁと思っていたのですが How to obtain the number of rows affected by a statement in MySQL - O'Reilly Answers こういうことらしく matched rows を返すとのこと。 mysql_client_found_rows=0とすることで、 insert されなかった場合: 0 insert された場合: 1 update された場合: 2 となってしたいことの要件を満たしてくれました。
DBIx::TransactionManager の目的と、その使用法について - tokuhirom's blog
おはようございます。 DBI では当たり前のように $dbh->do('BEGIN') と $dbh->do('COMMIT') をつかえばトランザクションがつかえるわけですが、なぜ DBIx::TransactionManager のようなものが必要になったのでしょうか。 それは勿論、DBI で直接 transaction をとりあつかうと問題が発生するケースが存在するからです。 トランザクションと RAII一番おおきいのは、トランザクションが中途半端な状態になってしまうことを阻止することです。たとえば、以下のようなケースでは、おかしなことになってしまいます。 my $dbh = DBI->connect(...); for (@stuff) { eval { $dbh->do("BEGIN"); $dbh->do(q{INSERT INTO t1 (v) VALUES (?)}, $_
YAPC::Asia Tokyo 2012に参加してきました | へぼい日記
参加してきました。YAPC::Asia Tokyo 2012。 初発表してきました Tengにpull requestをよく送っていたからか、nekokakさんにやりませんかとIRCで声をかけて頂いて、やりますーと軽く答えて参加申し込みをしたはいいものの、ちゃんとした話ができるのか不安でしかたがなく、直前は緊張で吐きそうになるなどしつつ、発表者席に向かったところ目の前にnekokakさんが陣取っており(その場ではじめましてのご挨拶(!))、プレッシャーでクラクラしながらも、なんとか発表させていただきました。 反省点は多々ありますが、なんとか最後まで喋りきることはできたので一応満足はしています。今後は自分のプロダクトでの発表や、40分枠で喋れるような濃い発表ができるように日々意識して活動していこうと気持ちを新たにしました。 プレゼン資料公開しておきます。 追記: 2012/10/6 動画アッ
Perl-DBI - yanor.net/wiki
2023-11-03 Windows/エクスプローラー/レジストリでアプリケーションの関連付けをする 2023-10-30 Windows/WSL/環境構築/ディストリビューションのアンインストール MySQL/環境設定/Debian 10にMySQL8をインストール 2023-10-26 Vim/環境設定/インストール/WindowsにZIPファイルでインストール Windows-アプリケーション/Mery/インストール Windows/WSL/ファイルシステム/WSL2のディスクスペースを開放する Git/設定/TortoiseGit Git/設定/TortoiseGit/libgit2でnot owned by current userなエラーが出る 2023-10-23 Windows-アプリケーション/Mery 2023-10-10 ウェブ開発全般/CodeSandbox/概要
Perl Advent Calendar 2011 - Less Tedium, More Transactions
A frequent pattern when writing database-backed applications with the DBI is to connect to the database and cache the database handle somewhere. A simplified example: package MyApp::DB; use DBI; use strict; my $DBH = DBI->connect('DBI:SQLite:dbname=myapp.db', '', '', { PrintError => 0, RaiseError => 1, AutoCommit => 1, sqlite_unicode => 1, }); sub dbh { $DBH } Just load MyApp::DB anywhere in your
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perlとforkとDBI - 社長ブログ
perlでDBIを使った処理でforkさせた際に、ちょっとはまったので、忘れないように書いておく。 親プロセスで、DB接続後にforkする場合、子プロセスにデーターベースハンドルが引き継がれて しまい、困った事象（親のDB接続が切れる）が発生する。 これを回避するには、親プロセスのDB接続時に「AutoInactiveDestroy => 1」を設定すると、 幸せになれる。 ○ソース例 my $conn = DBI->connect($dbname, $dbuser, $dbpass, {AutoCommit=>1, PrintError=>0, RaiseError=>0,AutoInactiveDestroy=>1}) || die "OPEN ERROR(1): " . $DBI::errstr; # fork my $pid = fork; if (!defined $pid) {
DBIx::DBHResolver
NAME DBIx::DBHResolver - Resolve database connection on the environment has many database servers. SYNOPSIS use DBIx::DBHResolver; my $r = DBIx::DBHResolver->new; $r->config(+{ connect_info => +{ main_master => +{ dsn => 'dbi:mysql:dbname=main;host=localhost', user => 'master_user', password => '', attrs => +{ RaiseError => 1, AutoCommit => 0, }, }, main_slave => +{ dsn => 'dbi:mysql:dbname=main;h
SQLでincrementした値を表示するやつ - かみぽわーる
MacBook Air 11インチ欲しい！ @sugyanさんのSQLでincrementした値を表示する方法を考える - すぎゃーんメモを生DBIでやってみたのとベンチマークとってみた。 トランザクションなし Rate dbic teng dbi1 dbi2 dbic 578/s -- -64% -92% -92% teng 1587/s 175% -- -78% -79% dbi1 7143/s 1136% 350% -- -7% dbi2 7692/s 1231% 385% 8% --トランザクションあり Rate dbic teng dbi1 dbi2 dbic 581/s -- -59% -88% -92% teng 1429/s 146% -- -71% -81% dbi1 5000/s 760% 250% -- -35% dbi2 7692/s 1223% 438% 54%
Scope::Container::DBIを書いた - blog.nomadscafe.jp
2010 Perl Advent Calendar などでも説明していた Scope::Container でDBの接続管理を行うモジュールを書いた。 CPAN: http://search.cpan.org/dist/Scope-Container-DBI/ github: https://github.com/kazeburo/Scope-Container-DBI 機能的には、Scope::Container に接続情報をキャッシュして、同じDSN・ユーザ名で接続の場合、キャッシュからdbhを返します。Scope::Containerなので任意のスコープで接続の維持と切断ができます。 Scope::Container::DBIには、connectメソッドがあるだけ。DBIと同じくdsn、ユーザ名、パスワード、オプションを渡す。 use Scope::Container::DBI; u
SQLを書くプロジェクトのためのDBIx::Sunnyってのを書いている - blog.nomadscafe.jp
大規模なサイトでは、ORMではSQLレベルのチューニングがしにくいので(Class::DBIで苦労してる)、SQLを直接書くことが多いと思います。その際SQLをいろいろなモジュールに書いてしまうと、あとからALTERやパーティショニングしようとした時に悲劇となります。できるだけ1つのテーブル・データベースのSQLは１つのモジュールにおさめておく事がおすすめです。 DBIx::Sunnyはそのようなモジュールを書く時に使えそうなライブラリで、SQLを管理すると共にクエリ実行時に渡された値のバリデーションもできる様になっています。まだまだ実験中ですが、githubにソースコードあります。 使い方はこんな感じ。まずSQLを書くクラスをDBIx::Sunnyを継承して作ります。query、select_one、select_row、select_allってのがSQLを管理する用の暮らすメソッドとし
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl RDBMS Programming(DBI/DBIx::Sunnyのはなし)
Page not found | The Effective Perler
PerlとSQLのいろいろ
