Perl + MongoDBで数値をfindする時の注意点。
値は入ってるし、条件もあってるのに取得できないなーと思ったら MongoDBには、{ "age" : 20 }と入っているのに、Perlからのfind時の条件は{ "age": "20" }になってました。 Perlは、文字と数値をあまり区別しないのでこんな事に。 とりあえず、"20" + 0として…
Perl
複数ドメインを単体のCatalystで運用する方法
※下記の方法は、Catalyst5.8系までしか使えません。5.9以降は動きません。5.9なら、これで動くかも？→ https://blog.mitsuto.com/archives/97280 VPSだと複数起動したりプロセス増やしたりすると、すぐメモリ不足でスワップに突っ込んでいってしまうので、…
Sessionデータの出し入れ＋全削除
最近またCatalystを触り始めたので基本的なところですがメモ。 #入れる $c->session->{'hoge'} = 'hogehoge'; #取得 my $hoge = $c->session->{'hoge'}; #削除 delete $c->se…
CatalystのViewをText::Xslateにしてみる
もはや、Template::Toolkitを使う理由もあまりないので、Catalystのdefault_viewをXslateにしようと思います。 Catalyst::View::Xslate Catalyst::Helper::View::Xslate をinstallして script/myap…
Text::CSV_XSで、CSVを出力。
CSVでダウンロードする機能を作ることがたまにあるけど、毎回調べるのが無駄なのでメモ。 Text::CSV_XS使うと、CSVファイルを読み込んでparseみたいな事を簡単にできるんですが、DBとかに入ってるデータをCSVで出力したいだけなので、割愛。 use Text::CSV_XS; my @d…
CGI::Applicationで任意のheaderを挿入する
そんなこんなで今日もCGI::Appで数年前に作られたサイトのメンテです。別のFWで書き直したい・・。 headerを変える時のメモ。 $app->header_add(-hoge => "foo"); $app->header_add(-hoge_hoge …
CentOS5.5にfcgi環境を作る
メモ程度に fcgiインストール cd /usr/local/src wget http://www.fastcgi.com/dist/fcgi-2.4.0.tar.gz tar zxvf fcgi-2.4.0.tar.gz cd fcgi-2.4.0 ./configure make make i…
catalyst.plが動かない
Task::Catalystインストールして、あとはcatalyst.pl叩くだけだなーと放置してましたが、 叩いても動かねぇ。。 weaken is only available with the XS version of Scalar::Util at /usr/lib64/perl5/sit…
TokyoTyrantのRDBQRYで否定条件を試す
試すというか、やり方がわからなかったんで、調べたメモ。 合致条件の真偽を反転させるには、各演算子と `TDBQCNEGATE' のビット和を用います（コマンドラインでは "~" を接頭させます）。 http://fallabs.com/tokyocabinet/spex-ja.html って書いてあ…
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…
Catalystで環境変数
CatalystでENVの取り方をいつも忘れるのでメモ $c->engine->env->{'REMOTE_ADDR'}; # IPアドレス…
Log::Dispatch::File::Rolling
Catalystのアプリログを吐く時にCatalyst::Plugin::Log::Dispatchを普通に使うんですが、 ログが貯まりっぱなしになるのでなんとかしないとなー。 って事で、Log::Dispatch::FileRotateで、ファイルを分けるんですけど、 サイズ指定しかできない。 ロ…