DBIx::ProfileManager で SQL Profiling | BLOG - DeNA Engineering
風邪を引きっぱなしで全然治らない山口です。恐らくネット上では zigorou と言うハンドルでご存知の方もいらっしゃるかもしれません。 まずは技術系のネタの第1弾です。 今回は実際にモバゲーオープンプラットフォームで用いている SQL Profiling の方法をご紹介致します。 DBI::Profile について モバゲータウン ではデータベースは MySQL を用いており、サーバーサイドプログラムから管理ツールまでのほとんどが Perl で書かれており、 当然ながら DBI モジュールまたはそれを利用したモジュールを使って DB アクセスをしています。 今回、オープンプラットフォームチームで作った OpenSocial RESTful API ですが、モバゲータウン内のデータベースに大量にアクセスする為に日々どのようなクエリが実行され、どれくらいの実行時間が掛かっているかは常に気になる
Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
Perlでコマンドラインオプションをparseしようと思うと組込みモジュールとしては Getopt::Std と Getopt::Long がある。が、long style option *1 つまり --option-name のようなオプションを解釈してくれるのは Getopt::Long だけだ。なので普通はこちらを使おう。 ただし 絶対にデフォルト、つまり以下のようにして使ってはいけない。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
第25回 Module::Starter：モジュールを書くためのテンプレート | gihyo.jp
モジュールを再利用可能にするためのツールたち Perl 4の時代まではいざ知らず、いまどきPerlのモジュールやアプリケーションを再配布しようと思ったら、CPANモジュールと同じ形式にしておくのがベタープラクティスです。たとえ一般には公開しない社外秘のモジュールであっても、Makefile.PLやBuild.PLを用意して、テストも書いて、できればREADMEやChangesなどの更新履歴もつけておけば、別のプロジェクトを立ち上げたときにコピー＆ペーストする必要もなくなりますし、業務の引き継ぎなども簡単になります。 とはいえ、モジュールを書くたびにMakefile.PLなどを一から書きおこすのは面倒な話。メタ情報の部分はモジュールごとに異なるとはいえ、それ以外の部分は（特にひな形の時点では）大差ないのがふつうですから、できれば省力化したいところです。 今回はそんなときに使われるひな形作成ツ
Lexing Your Data
Lexing Your Data Jan 5, 2006 by Curtis Poe s/(?<!SHOOTING YOURSELF IN THE )FOOT/HEAD/g Most of us have tried at one time or another to use regular expressions to do things we shouldn’t: parsing HTML, obfuscating code, washing dishes, etc. This is what the technical term “showing off” means. I’ve done it too: $html =~ s{ (<a\s(?:[^>](?!href))*href\s*) (&(&[^;]+;)?(?:.(?!\3))+(?:\3)?) ([^>]+>) } {$1
Perl スクリプトで遅い場所を特定する方法 - Devel::Profiler / Devel::NYTProf
今仕事で書いてる Sledge アプリがあるのですが、先日負荷テストを行った結果びっくりすることに現行アプリの１０倍遅いことが判明してしまいました・・・orz Sledge フレームワーク自身が重くないことは今までの経験でわかってるのですが、どうにもソースを見直しているだけでは原因が特定できない・・・そんな活躍するのがプロファイラです。プロファイラの御陰で遅いヶ所を特定することができ、無事に想定するパフォーマンスを得ることができました。この内容に関してはまた別エントリにて。 さて、プロファイラを使うとプログラム実行時の各種情報を収集し、性能解析を行うことが可能です。プロファイラについてもう少し詳しくしるには 性能解析 - Wikipedia あたりを読むと良いでしょう。 プロファイラ（英: Profiler）は性能解析ツールであり、プログラム実行時の各種情報を収集する。特に、関数呼び出しの
Test::Mock::Recorder - Kato Kazuyoshi
In xUnit Test Patterns, Gerard Meszaros introduce the term "Test Double" and he lists various kinds of double: dummy object, fake object, stub, spy, and mock. You can read the summary at Martin Folwer's Bliki. Last year I wrote own mock library for Perl. We can use Test::MockObject as (Gerard's definition of) mock. But it's hard. So my library provides "record-and-verify" style interface like Mox
UbuntuにEclipseをインストール、Perlをデバッグ - ikeike443のブログ
結局、仕事はWin機で行い、PerlとJavaを同じくらいの比率で書くことになりそうなのでEclipseで開発することにした. ということで会社のWin機にはEclipseとEpicを入れたのだが、自宅のUbuntuにEpicを入れようとするとエラーになってしまった。 どうやら、UbuntuでaptあるいはSynapticでEclipseを入れても、eclipse-platformしかインストールされないらしい。 なので必要そうなモジュールを手動で入れてやればよい。 $ sudo apt-get eclipse-pdeこの件は下記が参考になった。 http://blog.goo.ne.jp/saitosatoru/e/fb31da1cb25a90f198eb7308b8e37511 次に、EclipseにCatalystのプロジェクトを作って、これをデバッグ出来るようにしたい。 デバッグ実
Bamboo lath:Weak references are not implemented in the version of perl - livedoor Blog（ブログ）
久しぶりにapacheを再起動したら # /etc/rc.d/init.d/httpd start httpd を起動中: Syntax error on line 1012 of /etc/httpd/conf/httpd.conf: Weak references are not implemented in the version of perl at /usr/lib/perl5/site_perl/5.8.8/Catalyst.pm line 24・・・ ↑が出てびっくり。 設定おかしくないのになんでだろー。 「Weak references are not implemented in the version of perl」 で調べたら結構沢山出てきた。 どうも「Scalar::Util」が原因らしい。 # rm -f `perldoc -l Scalar::Util` #
Net::Google::Calendar
NAME Net::Google::Calendar - programmatic access to Google's Calendar API SYNOPSIS # this will only get you a read only feed my $cal = Net::Google::Calendar->new( url => $private_url ); or # this will get you a read-write feed. my $cal = Net::Google::Calendar->new; $cal->login($username, $password); or # this will also get you a read-write feed my $cal = Net::Google::Calendar->new; $cal->auth($use
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
WWW::Mechanize::Plugin::JavaScript
NAME WWW::Mechanize::Plugin::JavaScript - JavaScript plugin for WWW::Mechanize VERSION Version 0.002 WARNING: This is an alpha release. The API is subject to change without notice. This set of modules is at a very early stage. Only a few features have been implemented so far. Whether it will work for a particular case is hard to say. Try it and see. (And patches are always welcome.) SYNOPSIS use W
CPAN dependencies and test results checker
Given a module name, this service will show you its dependencies along with a summary of their test results from the CPAN testers. The idea is that if you have a choice of several modules to use, this will show you which is the most reliable. Search Module Please note: this site is a tool to analyse the dependencies of modules written in the Perl programming language. I can not help you with any p
Data::Random
NAME Data::Random - Perl module to generate random data SYNOPSIS use Data::Random qw(:all); my @random_words = rand_words( size => 10 ); my @random_chars = rand_chars( set => 'all', min => 5, max => 8 ); my $string = rand_chars( set => 'all', min => 5, max => 8 ); my @random_set = rand_set( set => \@set, size => 5 ); my $random_enum = rand_enum( set => \@set ); my $random_enum = rand_enum( \@set )
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Devel::NYTProf::Callgrind::Ticks
Dancer::Plugin::NYTProf
CatalystX::Profile
Plack::Middleware::Debug::Profiler::NYTProf
今日のCPANモジュール（跡地） 目次
https://blog.8-p.info/2009/02/class-sniff
Data::RandomPerson