訂正 (2009-12-09T12:55:19+09:00) id:charsbar さんに教えて貰ったんですが依存してる Module::Pluggable::Object の except, only とかを使えば普通に出来た罠。 __PACKAGE__->config( setup_components => ['MyApp::Web::Model::Damepo',] ); とかで同様…

LIMIT 〜 OFFSET なんか使う SELECT 文をページ送りとかしたい場合、全体の件数が必要だったりして、 SELECT * FROM people LIMIT 50 OFFSET 0; SELECT COUNT(guid) FROM people; みたいな感じの事やりたい訳だけど MySQL の場合だと、そういう枠組みがある…

d:id:ZIGOROu:20090814:1250262134 のさらに続編です。 現在接続している dbh 全てを disconnect したい場合 use strict; use warnings; use DBI; ### なんかいっぱい接続したりとかする my %drhs = DBI->installed_drivers; for my $drh ( values %drhs ) {…

SELECT * FROM hogehoge WHERE hoge_flags & 2 = 0; みたいのを作りたい場合、 use strict; use warnings; use Data::Dump qw(dump); use SQL::Abstract; my $sql = SQL::Abstract->new; my ($stmt, @bind) = $sql->select("hogehoge", ["*"], +{ hoge_flags…

先日の idcon #6 にて発表した際に使ったシーケンスです。資料自体は大分グレーなので公開しませんw例によってシーケンスのテンプレとして WebSequenceDiagrams - Draw sequence diagrams online in seconds こちらもご利用下さい。

挙動確かめる用。ちなみに Exception::Class だと pacakge をわざわざ明示的に割り当てる必要は無い。 #!/usr/bin/perl package ThrowableProcess::Exception; use base qw(Error::Simple); package ThrowableProcess::FirstException; use base qw(Throwabl…

id:kazuhooku さんの指摘 *1 を受けて transaction してた所を修正。AutoCommit をとりあえず 1 にしておきました。 #!/usr/bin/perl use strict; use warnings; use DBI; use Perl6::Say; use SQL::Abstract; use SQL::Abstract::Plugin::InsertMulti; use …

作ってみました。元ネタは MySQLにおけるbulk insert と bulk update - 金利0無利息キャッシング – キャッシングできます - subtech です。bulk insert, bulk update *1 が出来ます。 SQL-Abstract-Plugin-InsertMulti-0.05 - add mysql bulk insert support…

アイデンティティファンの皆様*1お待たせ致しました。 http://groups.google.co.jp/group/idcon-ja/web/6-identity-conference?hl=ja にて開催告知を出しました。 日時 10/9(Fri) 19:00-21:00 場所 株式会社 DeNA 12F セミナールーム 1213 で今のところ勝手…

http://www.art-code.org/presen/yapcasia2009/ に置きました。前半は以前に書いたブログのまとめ的な感じになっていて、後半は MySQL::Sandbox::Frontend と言うモジュールの話をしてみました。make_sandbox コマンドの実行は結構重たくて、毎回 Sandbox 作…

Yokohama.pm 出張版 in YAPC::Asia 2009 前夜祭のスピーカー発表(追記あり) - Yokohama Perl Mongers スピーカー一覧が出ましたねー。id:amachang さんには何か最近の持ちネタを話して頂く予定です。メールしておいたのでご確認願います＞id:amachangid:spir…

さて、まさか続編書くと思わなかったけど、d:id:ZIGOROu:20090731:1249050735 の続きです。 追記 (2009-08-15T00:30:56+09:00) ちなみに、下記で紹介してる方法は一般的には DBI の資産がたくさん合ってモゴモゴな状況をどうするか…みたいな状況の人向けです…

イベント告知ばっかになってきた＞＜ Yokohama.pm 出張版 in YAPC::Asia 2009 前夜祭を開催します - Yokohama Perl Mongers 今回は、YAPC Asia 2009 の参加チケットを持っている人は前夜祭兼懇親会はタダで、さらにチケット持ってない人も参加費1,000円で飲…

つーわけでやりますお。 http://groups.google.com/group/socialweb-japan/web/socialweb-vol-3 SocialWeb勉強会 vol.3 : ATND 皆さんふるってご参加下さい。今回はソーシャルアプリケーションについて広く扱う予定です。

d:id:ZIGOROu:20090811:1250008682 の続き。 パラメータ 5. Parameters の辺りの話。 Consumer のリクエストパラメータ 以下のいずれかで。 Authorization ヘッダにぶち込む (OAuth HTTP Authorization Scheme) application/x-www-form-urlencoded 形式の PO…

d:id:ZIGOROu:20090811:1250006392 を適宜参照しつつ。自分用のメモです。 用語 3. Definitions より、抑えておくべきものだけ。 Service Provider OAuth 使ったアクセスを許可するサービス。SP と略。 User SP のアカウント持ってるユーザー Consumer ユー…

" alt="OAuth Sequence Diagram Template" style="width: 90%;">OAuth Sequence Diagram Templateとりあえず、OAuth のお勉強用にテンプレ化。Web Sequence Diagrams すげー便利だなー。 participant User participant Consumer participant "Service Provid…

ついに YAPC Asia 2009 のチケット販売が開始しました。 皆さんふるってご参加下さい。自分も MySQL を使ったテストについてお話します。思いっきり id:kazuhooku さんの奴と被ってますけどwwwそれと、YAPC のイベントレポーターも募集中です。 今年の YAPC …

余り頻繁に使うモジュールでは無いのでメモっとく。 #/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use Perl6::Say; use SQL::Translator; my $dbh = DBI->connect("dbi:mysql:world", "root", ""); my $table = $dbh->selectrow_arra…

良し悪しはまた別に置いといて。 SQL::String - An object representation of a chunk of SQL - metacpan.org #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use Perl6::Say; use SQL::String; sub ss { my ($sql, @params) = @_; SQ…

ちょっと前まで DBI で非同期アクセスなエントリが各所で上がっていましたが皆さん如何お過ごしでしょうか？さてと、、、歴史的な経緯とか歴史的な経緯とかで生 DBI 相当を使ってる方もそれなりにいるでしょう。奥さん、大事な事なんで二度言いましたよ！DBI…

SQL::Interp を最近使ったりします。ってのも生 DBI だと IN 文とか placeholder 化するの面倒だし。と言う訳で下記サンプル。__END__ 以下に結果もつけといた。 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use Perl6::Say; use S…

http://blog.spicebox.jp/labs/2009/07/openid_1_1.html このサンプルの場合、ユーザに OpenID を入れてもらわないといけないという問題があります。例えば mixi の場合は https://id.mixi.jp/xxxxx といったものが OpenID になるのですが、これをユーザに調…

今になってやっと宣伝ですよ＞＜今年も YAPC 2009 があります。一般のスピーカーの募集は 7/17 (金) までです。 マイペースな人が多い Perl Mongers だから忘れてる人も多いんじゃないでしょうかw そろそろ締め切りが近いですよ！登録の仕方は簡単で、YAPC 2…

今、ちょうど簡単なお仕事でグラフ出さないといけないので、適当に書いてみた。GD::Graph の出力はどう見ても切ない貧弱な表示なので今回は触れない。 #!/usr/bin/perl use utf8; use strict; use warnings; use Carp; use Imager; use Imager::Graph::Pie; …

MySQL::Sandbox - Yet Another Hackadelic の続きです。 make_replication_sandbox でレプリ環境をサクっと作る レプリ環境もサクっと作れます。前と同じバイナリがあるとしたら、 $ make_replication_sandbox /home/zigorou/tmp/mysql-5.0.82-linux-i686-gl…

いつぞや OP駆動 と言う言い回しを使ってしまったため局所的に広まってしまいましたが、tkudos さんによれば OP initiated って言えよボケカスと言う事なので、これからは OP initiated って言う事にします。 SEE ALSO OP initiated の認証に関するメモ - Ye…

MySQL::Sandbox はお手軽に MySQL のサーバーを立ち上げるツールで、ちょっとしたテスト環境を構築するとかに非常に便利なプロダクトです。 とりあえずインストール $ sudo cpan -i MySQL::Sandboxでインストールしてから OS ごとの実行バイナリをダウンロー…

今回は二本立てでした。 Introduction OpenID Authentication 2.0 Revival Introduction OpenID Authentication 2.0 Revival 前の資料をもうちょっと丁寧に書き直したバージョンです。図解を豊富にしてみたり、どうしてその概念があるのかなんてのが自然と分…

物凄い久しぶりに OpenID ネタ。 PAPE と認証ポリシー PAPE (Provider Authentication Policy Extension) の認証ポリシーに関してなんですけど、Multi-Factor Authentication と言う複数の認証方式を組み合わせた認証ポリシーを OpenID Provider に対して要…