STRICT_ALL_TABLESモード

mysqlではデフォルトではNOT NULL制約に明示的に値を与えない場合、勝手に空文字や0といった値を勝手に入れちゃう。例えば CREATE TABLE users ( id INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY, username VARCHAR(255) NOT NULL ); なテーブルに対して IN…

Catalyst 5.7 vs 5.8でベンチマークを取ってみた

CPANにMoose版Catalystである5.8のdeveloper releaseが出ていたのでベンチマーク取って見ました。 なお、Catalyst::ClassDataがパッケージに含まれていなかったので、これだけリポジトリから持ってきて動かしてます。テスト内容はcataltst.pl MyAppで出来る…

mod_authnz_ldapでネストしたグループの認証

何をしたいかというとadminグループはuserグループに入ってるからuserグループに権限が与えられたらadminグループにも与えたいよねって場合、apache2.2付属のmod_authnz_ldapでは無理っぽい。けど、2.3付属のだと、AuthLDAPSubGroupAttribute Directiveで出…

Catalyst::View::QRCode

とある頼まれごとでQRコードを生成する必要がでてきたので、昔作ったC::V::GD::Barcode::QRcode(モジュール名なげーよ)を引っ張り出してきたんだけど、何か猛烈に古臭いしGD使いたくなかったのでid:clouderさんのImager::QRCodeとハイブリッドにしてCoderepo…

今日のMOOOOOOOSE改め今日のMØØØØØØØSE

_____________________________ < THE PEOPLE DEMAND MORE Ø'S! > ----------------------------- \ \ \_\_ _/_/ \ \__/ (oo)\_______ (__)\ )\/\ ||----w | || || http://twitter.com/nothingmuch/statuses/951005294

Catalyst+DBIC+TT+Data::Page::Navigationでページング

これもよく使うくせによく忘れるので備忘。まずはCatalystのControllerでData::Page::NavigationをuseしてMyApp::Controller::User package MyApp::Controller::User use strict; use warnings; use parent 'Catalyst::Controller'; use Data::Page::Navigat…

最近使ってるCatalystなアプリケーションのディレクトリ構成

最近はもっぱらこんな構成 MyApp/ |-- Changes |-- Makefile.PL |-- README |-- conf - 設定ファイルはまとめてここへ | `-- myapp.conf |-- docs - ドキュメントとかSQLとか |-- lib | |-- MyApp | | |-- Base - Base::Controllerとか基底クラス | | |-- Co…

CentOSのバージョン確認

# less /etc/redhat-release CentOS release 5.2 (Final)いっつも忘れるねー。

subversionリポジトリのミラー

Tracって素ではローカルのsubversionリポジトリしか見れないのね。 しょうがないのでローカルにミラーすることにした。 で、どうやってミラーするかなんだけどSVKじゃなくてsvnsync使ってみた。まずはミラー先で普通にリポジトリ作って svnadmin create /var…

Class::Accessor::Fast::XSのベンチを取ってみた

Class-Accessor-Fast-XS-0.04 - XS replacement for Class::Accessor::Fast - metacpan.orgMooseブームも一段落したところでこんなん出てたからベンチ取ってみた。 package ClassAccessor; use strict; use warnings; use base qw/Class::Accessor/; __PACKA…

Re:DBICが発行するSQLのテーブル名をクォートさせたい

DBICが発行するSQLのテーブル名をクォートさせたい - Lism.in * blog - nekoya (id:studio-m)一応Cookbookに書いてあるけどちょっと注意。My::Schemaに __PACKAGE__->storage->sql_maker->quote_char('`'); と書いてもSchemaクラスのstorageが準備されるのは…

今日のDBIC

my $rs = $schema->resultset('Order')->search( {}, { select => [ { date_trunc => [ 'day', 'created_on' ] } { count => 'id' } ], as => [qw/created_day order_count/], group_by => 'created_day', order_by => 'created_day', } ); で動くかと思いき…

Play with TheSchwartz

某社の勉強会に参加させていただいたときに手ぶらではまずいということで10分ででっち上げたプレゼン。Play With Theschwartzどっちらけムードだったのが印象的だった。 空気読めてなくて本当に申し訳なかった。

hidek

空前のhidekブーム。 原因はYappo。

TheSchwartzのER図

暇なわけじゃないんだからねっ! MySQL Workbenchを使ってみたかっただけ。 無償版だとちょっときついですね。

$hidek->{age}++

というわけで年齢がインクリメントされた

id:tokuhiromの凄さに触れた

WSIGの調べ物があったので「WSIG」でぐぐったら2つ目に来てたのがこのエントリーhttp://d.hatena.ne.jp/tokuhirom/20061128/1164680664この中ですでにHTTP::Engineの基本概念であるCatalyst::EngineのCatalystからの分離をうたってる。 ちなみにこの記事は20…

CPANコマンドで[Y/n]で自動的にYを選ぶ設定

cpan[1]> o conf prerequisites_policy follow一体何回ぐぐればいいんだ>オレ

Web::ScraperでFaviconのURL抽出

typesterさんのWWW::Faviconというモジュールを使おうとしたんだけど、諸々の事情でWeb::Scraperを使うことになったので抽出ロジックをごっそり頂戴してみた。 use strict; use warnings; use LWP::UserAgent; use Web::Scraper; my $url = 'http://example.…

ホームディレクトリにImageMagickをインストーリング

ImageMagickってバージョンによって生成される画像のクオリティがまちまちなんすよ。 で、root権限のない某レンタルサーバのImageMagickのバージョンが古すぎて使えなかったから、例によって自分のホームディレクトリ以下にインストールしようとしたら結構面…

Perlエンジニアの募集って

意外と少ない?

ノートのOSをUbuntuに変える

FedoraをVAIOに入れて使ってて特に不満はなかったんだけど、タッチパッドでタッピングがどうしても効かないのとサスペンドの復帰から失敗するのだけが気になってた。で、物は試しっちゅーことでUbuntuをLiveCDで試してみたら、あっさり両方とも問題なく動い…

今日のMOOOOOOOSE

_________________________________________ / Moose \ | にしたって必ずしも使わなき | | ゃいけねーってもんじゃあな | \ い。by tokuhirom / ----------------------------------------- \ \ \_\_ _/_/ \ \__/ (oo)\_______ (__)\ )\/\ ||----w | || ||ht…

今日のMOOOOOOOSE

________________________________________________ < 「KENTにMoose使えって言うなら」ねーよw by yappo> ------------------------------------------------- \ \ \_\_ _/_/ \ \__/ (oo)\_______ (__)\ )\/\ ||----w | || ||http://b.hatena.ne.jp/entry/h…

CPANモジュールをデフォルトと違う場所にインストールするMakeFileの作り方

題長いすなー。 perl MakeFile.PL PREFIX=/home/hidek/local久々だったから忘れてた。

cowsay -f moose MOOOOOOOSE

____________ < MOOOOOOOSE > ------------ \ \ \_\_ _/_/ \ \__/ (oo)\_______ (__)\ )\/\ ||----w | || ||

yokohama.pm

Yokohama.pmが早速TechTalk#2をやるらしいです。詳しくはこちらid:ZIGOROuにSEOしる!言われたのでこんな感じ?マジレスすると開始時間を7時とかにしてくれると都内勤務者も参加しやすいかも。

やっと届いた

[24時間365日] サーバ/インフラを支える技術 ?スケーラビリティ、ハイパフォーマンス、省力運用 (WEB+DB PRESS plusシリーズ)作者: 安井真伸,横川和哉,ひろせまさあき,伊藤直也,田中慎司,勝見祐己出版社/メーカー: 技術評論社発売日: 2008/08/07メディア: 単…

おれおれminiblogリーダー

を作り始めたけど、フロントエンドを作るのが面倒くさくてSQL叩いてる件について

WWW:Mixi::Scraper::Plugin::RecentEchoでリプライ先を取る

ひさびさにWeb::Scraperを触るのにXPath触ったんだけど、全然覚えてなくて笑えたよ。で、何をやったかって言うとid:yappoが書いたWWW:Mixi::Scraper::Plugin::RecentEchoに誰あてのリプライなのかわかるように拡張しました。 process '//td[@class="comment"…