タイガー＆バニーの、原稿が遅れがちな方、トミールです！ 今日は DBI へのシュガーシンタックスを追加するラッパー、DBIx::Simple の紹介です。 実は DBI そのものって相当高機能である！、というのはこのアドベントカレンダーでもいろいろ紹介されると思います。が、やや不親切なメソッドの引数の感じを見て、ゴロゴロ DBI のラッパーが作られていたりします。そんななか DBIx::Simple がやはり良いと思うのはわかりやすくシンプルな API を提供する、という点で一定の成功を収めていると思う点です。 ※ ただしわかりやすい API のトレードオフとして、結果のステートメントハンドルを bless するタイプです。もし blessする（結果オブジェクトを作成する）コストが問題になるようなハードコアな環境で開発されている方は普通に DBI を素で使えばよいと思います。 DBIx::

どうもnekokakです。 みなさんDBIを使っているコードのベンチマークってどうしてますか？ SQLのチューニングであればいいのですが、ロジックのベンチマークを取りたい時に 実際にdatabaseにクエリなげてしまうと、ネットワーク通信等が発生し、細かいロジックのチューニングの邪魔になることがあります。 たとえば私はTengのチューニングをするときに、バックエンドのdatabase性能なんてどうでもよくて、 プログラムの性能をみたいわけです。 そんなときに便利なのがTest::Mock::Guardです。（え Testというnamespaceにありますが、やっていることはコードをさしかえることなので これをつかって実際にデータベースにクエリなげるところとかをフガフガします。 例えばTengのベンチマークを取る時に試したコードは以下のようなものです。 #! /usr/bin/perl us

どうもkazeburoです。DBIx Trackなのに、DBIxを作らない話。 myfinderさんがDBIxを作る第一歩としてDBIのサブクラスの作り方を紹介しましたが、実際にDBIxを作り出す前に、その機能がDBIの標準機能でできないか調べるのがオススメです。 Callbacksの基本 CallbacksはDBIに標準で用意されているHook機能です。 my $dbh = DBI->connect('dbi:SQLite:dbname=test.db','','', { RaiseError => 1, PrintError => 0, Callbacks => { connected => sub { ... } } }); 接続時のAttributesにCallbacksを追加します。上では接続が完了(connected)したらcoderefが呼び出されます。 接続時にテーブルを作

はじめに DBIxといえばSkinnyです。nihenです。 DBIｘトラックといいながらDBIの話でもよいみたいなのでに書いたことの続編tipsを一つ書きますです。 DBI->connect_cachedとforkの罠 DBI->connect_cachedは同一プロセスで生成された同一connectオプションのデータベースハンドルをキャッシュしてくれそれを返してくれる便利なものなのですが、これとforkの組み合わせにはやはり罠が存在します。 use strict; use warnings; use DBI; use Data::Dumper; my $dbh = DBI->connect_cached('dbi:mysql:sandbox', 'sandbox', 'sandbox') or die $DBI::errstr; $dbh->do(q{DROP TABLE IF EXI

こんにちは！こんばんは！毎日フェッチしてますか！bayashi です！ DBIx 系を自分で書いたことがなく、果てしなくネタに困り、しょうがないから CPAN で DBIx 検索して見つけた、面白そうなモジュールを紹介します。もちろん、ニッチなのを攻めてみますよ！ その名も、DBIx::Tree。なんだこれ！ このモジュールは、いわゆる Adjacency List Model のテーブルを、ツリー形式で見るためのモジュールです。 Adjacency List Model というのは、階層構造を持つデータです。RDBMSにおいては、通常、シンプルにフラットな複数のリスト同士を、関連するidでヒモ付けることで階層構造のようなものをつくることが多いと思いますが、Adjacency List Model においては、ひとつのテーブルのレコードそれぞれにユニークなIDと、同じテーブルのレコードにヒ

注意書き ここで紹介しているオレオレDBIxモジュールの作成方法は、ある種呪いにも似た副作用を発生させる可能性があるので十分に検討した上で利用してください。 あわせて DBIx 名前空間にあるモジュールは用法、用量を守って正しくお使いください。 はじめに こんばんは、DBIx トラック2日目をやる myfinder です。 今回は DBIx::ナントカ の紹介ではなく、オレオレDBIxへの第一歩として DBI のサブクラスを作る方法について書きます。 はじめの一歩 「千里の道も一歩から」という言葉がありますが、オレオレDBIxもまずは一歩を踏み出さないと始まらないと思います。 ということで、下記が最小のオレオレDBIxです。 use strict; use version; our $VERSION = '0.03'; package DBIx::OreOre; use parent qw

こんにちは！nekokakです！ 今年はボクが作ってるDBIx::Handlerというものを紹介してみる。 DBIx::HandlerはDBIのラッパーでありDBのコネクション周りの管理に重点を置いたモジュールである。 ORMを使わずにDB周りの処理を行いたい場合はこのDBIx::Handlerを使うことをおすすめする。 自分でDBIのインスタンスを生成し利用する場合どこまで正しくコネクション管理をあなたはできますか？ そもそも親プロセスで接続したdbのインスタンスを子プロセス側でも利用することの問題を正確に把握していますか？ そこまで正しく細かく理解し自分で実装できたとしてもだ、新しいプロジェクトを作るたびにそのコードをコピペするのか？ そこでDBIx::Handlerの出番だ。 DBIx::Handlerはそのあたりの処理をすべて面倒みてくれる。 もうあなたは いつDBとの接続が着られ

こんにちは。 risou です。 とうとう最終日。 今回は Perl のソースコードを読む時の補助に使える B::Xref についてちょっと書きます。 使い方 使い方はとっても簡単。 perl -MO=Xref ***.pl これで対象の Perl のソースコードを解析した結果を出力してくれます。 出力結果は以下のような感じになります(適当に加工しています)。 File /opt/local/lib/perl5/site_perl/5.12.3/JSON.pm Subroutine (definitions) Package JSON &from_json s123 &import s112 &jsonToObj s124 &objToJson s133 &to_json s132 Subroutine (main) Package (lexical) $backend i56, 58,

Webスクレイピングとは？ 例えば、昇天するくらいかわいい猫画像ください : あじゃじゃしたーの猫の画像が欲しいときにどうすればいいでしょうか*1。画像を1つずつ手作業で保存？面倒くさいですね。 そんなときのためのWebスクレイピングです。まずはじめは、Web::Scraperというモジュールを使ってみましょう。 use strict; use warnings; use autodie; use File::Basename; use File::Spec; use LWP::UserAgent; use URI; use Web::Scraper; my $url = 'http://blog.livedoor.jp/chihhylove/archives/3573873.html'; my $scraper = scraper { process '.main img.pict, .

Get started Start by creating your first app. Go deeper with our training courses or explore app development on your own.

DashboardExpiring SoonDomain ListHosting ListPrivate EmailSSL CertificatesSubscriptionsMy OffersNEWProfile Simple, affordable ways to be successfulRELATE is a suite of easy tools that power your business. Simplify your online marketing, make sure people trust your brand, and engage with more customers. Get more control to go next level. No time to write dozens of posts, or log into lots of platfor

こんにちは、torii (@yoshi704)です。 コマンドラインで完結するCUIアプリをサクっと作る前に楽をするための便利モジュール Getopt::Long を紹介します! 普段良く使うコマンドで -l とか -u とか --help とか付けてよく使うと思います。 自分でCUIアプリを作成して使う時にもこんな感じのコマンドラインオプションを簡単に使えると便利ですよね! コマンドライン引数はすべて@ARGVに入ることは知っていてもいざオプションを１つ１つ解析しようと思うと意外と面倒です。 その時に使う便利モジュールがGetopt::Longです。 GetOptions()という関数で、コマンドラインオプションを定義してあげます。 例えば、 $ ./sample.pl --user=torii --env=dev --times=2 --verbose hoge.dat というようなオ

こんにちはこんにちは、sakurako_sです。 日本の祝日を求めるのに便利なCalendar::Japanese::Holidayをゆるふわっと紹介します。 このモジュールには2つの関数があります。 isHoliday() - 指定日が祝日なら祝日名を返す getHolidays() - 指定月の祝日とその名前のハッシュリファレンスを返す コードを見てみましょう。 use strict; use Calendar::Japanese::Holiday; use YAML qw/Dump/; use Perl6::Say; binmode STDOUT, ':utf8'; # 祝日の名前 say isHoliday(2012, 1, 9); # 指定月の祝日 say Dump getHolidays(2012, 1); 実行結果は次の通り。 成人の日 --- 1: 元日 9: 成人の日 振

こんにちは。Perlで遊ぶと言うより、 未だ、Perlに遊ばれているtaiju (id:jdg) です。 YAPC::Asia TOKYO2011に参加したので、爪あとを残すべく、Perl Advent Calendar 2011に参加することにしました。 さて、Perl5.10から導入されたスマートマッチですが、これをより快適に使えるモジュールがないか、CPANで探してみたところ、Smart::Matchというモジュールが見つかりましたので、ご紹介したいと思います。 Smart::Matchはスマートマッチを快適に使うためのユーティリティをたくさん提供しているモジュールのようで、デフォルトで比較演算子でスマートマッチが採用される、switch文などで便利に使えそうなユーティリティがたくさん導入されています。 junctive Perl6のJunctionのような動作をするユーティリティ群

こんにちは！dukkiedukkieです。年の瀬も押し迫ったいい週末ですね。 掲題からして「フツーにB2CサイトのAPIを利用してセコイことやる話なんじゃね？」と精彩に欠けるお題になっておりますが、本日はその程度のお話です。日曜日ですしね、まったりと。 かつ、自作モジュールというわけでもなく人様のモジュール。http://search.cpan.org/~ichudov/Net-eBay-0.55/lib/Net/eBay.pm、イゴールさんとお呼びすればよろしいでしょうか。 ネットでお買いもの いきなり私事になって恐縮なのですが、オッサンPerlerのわたくしはしばしば「筋金入り」のOTAKU系の人物と他人様から認知される機会が多くございます(^^)。自分では至ってフツーだと思っておりますし、「ホンモノのその道の人」と出会う機会もございましたため、その道の人から見れば大したレベルではない

はい、One Page Appsの@su_askaです。 今日はちゃんとPerlの話をしようと思います。 DropboxというとクライアントOSにインストールして使用するイメージが強いですが、自分のサーバー上でも利用したい場合もあります。 Linux用のパッケージもあるので全部同期して構わなければそれをインストールする方法もあるのですが、デーモンまで上げるのはちょっと大袈裟だなーというシチュエーションもありますよね！ 例えば... 個人契約のサーバーで運用しているDBのバックアップ 期間削除 そんな時はdropbox-api-commandの出番です！（迫真 https://github.com/s-aska/dropbox-api-command インストールの仕方や細かい使用方法は上記URLを参照下さい。 豊富なコマンド群 linuxライクな ls **find** **sync**

You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session. Dismiss alert