Cpan

PerlからRedisに接続してみる。 Cpan

PerlからRedisに接続してみる。

cpanでredis検索したら、一番上にでてきたので、Redis(CPANモジュール)でやってみようと思います。 cpanm Redis use Redis; my $redis = Redis->new(server => 'localhost:6379'); # 入れる $redis…
Perlで、UserAgent判定する(Woothee) Cpan

Perlで、UserAgent判定する(Woothee)

特定のバージョンだけ動作を変更したかったので、ちょっとお試し。 cpanm Woothee とりあえず書いてみる。 use 5.12.4; use Data::Dumper; use Woothee; my $ua = 'Mozilla/4.0 (compatible; MSIE 8.0; Wind…
「starman」から「starlet」に乗り換え。 Cpan

「starman」から「starlet」に乗り換え。

いままでは、starmanを使ってたんですが、starletだとホットデプロイができるらしいので。 変更前(starman)の環境は->この辺参照 Starletをインストールして、 cpanm Starlet daemontools用に作ったrunファイルを書き換え。 #!/bin/sh exec…
CGI::Application::Plugin::Session + FastCGIでSession管理 Cpan

CGI::Application::Plugin::Session + FastCGIでSession管理

CGI::Appの改修とか、もうやめたい。。 CGI::Application::FastCGIとCGI::Application::Plugin::Sessionって、一緒には使えないんですかねー? 別のブラウザからアクセスしても同じSessionが送られるんですがorz package CGI:…
Template::ToolkitからText::Xslateへの移行 Cpan

Template::ToolkitからText::Xslateへの移行

my $xslate = Text::Xslate->new( syntax => "TTerse", ); syntaxを当然のようにTTerseにしてはいたんですが、 VMethod使いたいなーと思って探したら Text::Xslate::Bridge::TT2 …
Log::Dispatch::File::Rolling catalyst

Log::Dispatch::File::Rolling

Catalystのアプリログを吐く時にCatalyst::Plugin::Log::Dispatchを普通に使うんですが、 ログが貯まりっぱなしになるのでなんとかしないとなー。 って事で、Log::Dispatch::FileRotateで、ファイルを分けるんですけど、 サイズ指定しかできない。 ロ…
バージョン指定インストール Cpan

バージョン指定インストール

普通は cpan DateTime とやるところを 下記のようにすると cpan D/DR/DROLSKY/DateTime-0.4501.tar.gz バージョン指定してinstallできるぽい。 バージョン上げたら動かなくなったから・・昔のバージョンに戻したいとか言う時に使えるなー。 bugfi…
DBICで、now()とか・・。 Cpan

DBICで、now()とか・・。

ま、now()ってどうやっていれんの?ってコトでググった結果、 ↓みたいな感じで、スカラーリファレンス送ればいいらしい。 my $foo = $c->model('HOGEHOGE')->create({ user => $c->req->param('user'), …