Perl
Filter::SQLメモ
DBICとかでいうところのfirstっぽいのやりたい時は my $hoge = SELECT * FROM hoge;; 普通にコレでいけるっぽい。 ま、if文の中で条件に使えるくらいだから当然といえば当然か・・。 でも見易さ的には、 my $hoge = (SELECT * FROM hoge;)…
みつとどっとこむのキャッシュを更新するscript
Cache::File使ってるんですけど、静的コンテンツと変わりないくらいな感じなので、 キャッシュ期間を結構長めに設定してます。 で、更新したときにキャッシュを作り直さないと行けないんですけど、 元々はページがそこまで多くなかったので、手動でブラウザからアクセスしてキャッシュを生成してたんですけど…
CGI::Application
最近、全然使ってなかったんですけど、フレームワーク探してて、 CGI::Appもありかなーと思ってCPANみてたら結構Pluginが増えてまつね。 もう少し調べてみるかなー。…
YAPC::ASIA 2008 2日目
昨日に引き続き、仕事さぼって東工大行ってきますた。 モバイル系のモジュールとかフレームワークとか中心に。…
YAPC::ASIA 2008 1日目
仕事さぼって東工大行ってきますた。 着いたらLarry Wall氏のセッションが始まってたorz…
package new
package Hoge; sub new{ my $class = shift; my $foo = shift; my $self = { 'hoge' => $foo, }; return bless $self,$class; } sub Bar { my $self = shift;…
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:…
Perlのfork
某サイトで、某処理(割りと重め)をする時に、 system("hoge.pl 'foo1' 'foo2' & "); みたいな感じで別のplを叩いて処理を任せるように(※そうしないと、apache側でtimeoutするから)したんですけど・・ コレfork使うのが正しいんじゃね？ と今更思っ…
Catalyst::Plugin::Session::Store::DBIC
はまり中。。 前回やったときはうまく行ったんだけどなー・・orz てか・・Sessionじゃなくて・・ Catalyst::Plugin::Authentication::Store::DBIC かも・・。…
$c->req->param(’hoge’)の値変更
ま、あんまり必要ないけど、formから送られたvalueをプログラム側で変更したい時は $c->req->param('hoge' => 1); これでいけるっぽい。 もしかして、これ常識だったのか・・・orz…
メモです。
Prototype.jsのAjax.Request用ネ・・。 $c->res->content_type("text/plain; charset=utf-8"); $c->res->body( 'hogehoge' );…
searchで、now()
例えば有効期限のあるデータとかをselectしたいとき・・。 今回とりあえずってとこに時間入れといて、まだlimitの時間じゃなかったら有効なデータとかって判定したい場合に、前に書いた DBICで、now()とか・・。 と同じ感じとすれば・・ my $foo = $c->model('HOGE…
どうでもいいこと・・
ま、普通にif分岐を書くと・・↓こんな感じでつけど・・。 if($hoge == 111){ $foo = "HOGEは111!!"; }else{ $foo = "HOGEは111じゃない!!"; } で、↑このくらいの分岐だったら↓こんなの書くじゃないでつ…
DBICで、now()とか・・。
ま、now()ってどうやっていれんの？ってコトでググった結果、 ↓みたいな感じで、スカラーリファレンス送ればいいらしい。 my $foo = $c->model('HOGEHOGE')->create({ user => $c->req->param('user'), …