PerlからRedisに接続してみる。
cpanでredis検索したら、一番上にでてきたので、Redis(CPANモジュール)でやってみようと思います。 cpanm Redis use Redis; my $redis = Redis->new(server => 'localhost:6379'); # 入れる $redis…
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」に乗り換え。
いままでは、starmanを使ってたんですが、starletだとホットデプロイができるらしいので。 変更前(starman)の環境は->この辺参照 Starletをインストールして、 cpanm Starlet daemontools用に作ったrunファイルを書き換え。 #!/bin/sh exec…
CGI::Application::Plugin::Session + FastCGIでSession管理
CGI::Appの改修とか、もうやめたい。。 CGI::Application::FastCGIとCGI::Application::Plugin::Sessionって、一緒には使えないんですかねー？ 別のブラウザからアクセスしても同じSessionが送られるんですがorz package CGI:…
CGI::Application::Plugin::Sessionが動かねぇと思ったら・・
CGI::Appなソースの改修中なんですが・・ CGI::Application::Plugin::SessionのMETHODSには・・ $self->session_cookie(-secure => 1, -expires => '+1w'); なんてサンプルが載ってて…
Template::ToolkitからText::Xslateへの移行
my $xslate = Text::Xslate->new( syntax => "TTerse", ); syntaxを当然のようにTTerseにしてはいたんですが、 VMethod使いたいなーと思って探したら Text::Xslate::Bridge::TT2 …
Module::Recursive::Requireが便利そうな件
Catalyst::Model::DynamicAdaptorのソースを見てて、見つけた。 use Module::Recursive::Require; use MyApp::Foo; my @required_packages = Module::Recursive::Require->n…
Log::Dispatch::File::Rolling
Catalystのアプリログを吐く時にCatalyst::Plugin::Log::Dispatchを普通に使うんですが、 ログが貯まりっぱなしになるのでなんとかしないとなー。 って事で、Log::Dispatch::FileRotateで、ファイルを分けるんですけど、 サイズ指定しかできない。 ロ…
バージョン指定インストール
普通は cpan DateTime とやるところを 下記のようにすると cpan D/DR/DROLSKY/DateTime-0.4501.tar.gz バージョン指定してinstallできるぽい。 バージョン上げたら動かなくなったから・・昔のバージョンに戻したいとか言う時に使えるなー。 bugfi…
Perlを使って画像からexifを取得してみた。
Image::ExifTool 前に一度使ったことあったんですけど・・ 表に出すことなく終わってしまったんで・・。 use Image::ExifTool; my $exif = Image::ExifTool->new(); my $info = $exif->ImageInfo('h…
Cache::Fileでhtmlをキャッシュしてみました。
Cache::File http://search.cpan.org/~cleishman/Cache-2.04/lib/Cache/File.pm ↑これ http://search.cpan.org/~bbb/File-NFSLock-1.20/lib/File/NFSLock.pm http:…
DBICで、now()とか・・。
ま、now()ってどうやっていれんの？ってコトでググった結果、 ↓みたいな感じで、スカラーリファレンス送ればいいらしい。 my $foo = $c->model('HOGEHOGE')->create({ user => $c->req->param('user'), …