unknownplace.org - HTML::TreeBuilder::XPath + WWW::Mechanize なスクリプトを永続化させようとしてはまった
WWW::Mechanize でコンテンツとってきて TreeBuilder::XPath で解析するようなのを今まで単機能スクリプトなどでは便利に使っていたのだけど、それを永続的なプロセスで使おうとしたらメモリ使いまくってとんでもないことになったという話。 まずどんどんメモリが増えていくのでタイミングよく読んでいたjrockwayの記事などを参考に、 perl -MDevel::Leak::Object=GLOBAL_bless 付きでスクリプトを実行してみる。 少しソースをいじってまずはループを一回で止めるようにしたときの出力 Tracked objects by class: Config 1 DBI 1 DBI::var 5 DBIx::Class::ResultSource::Table 1 DateTime::Duration 2 DateTime::Format::Build
2009/04/03 - memo - unknownplace.org
package FCGI::ProcManager::Debug; use strict; use warnings; use base qw/FCGI::ProcManager/; sub pm_manage { my $res = shift->SUPER::pm_manage(@_); # manager does not return pm_manage, so below code should run in server only $0 = 'perl-fcgi (waiting)'; $res; } sub pm_pre_dispatch { $0 = sprintf('perl-fcgi (started %s)', scalar localtime); shift->SUPER::pm_pre_dispatch(@_); } sub pm_post_dispatch {
2009/06/25 - memo - unknownplace.org
最近は Text::MicroTemplate (TMT) をよく利用するようになったのですが、使用するにつれ不満なところが出てきたのでそれを解決するために少し拡張してみました。 実際には拡張したのは Text::MicroTemplate ではなく、Text::MicroTemplate::File です。 http://github.com/typester/text-microtemplate-extended-perl/tree/master 現在二つの機能を追加してあるのでそれを以下にまとめておきます。 テンプレートの継承機能を追加 テンプレートを分割するような規模になってくると現状の TMT では <?=r $self->render_file('header.mt') ?> ここにコンテンツ <?=r $self->render_file('footer.mt') ?> など
2007/04/14 - memo - unknownplace.org
Log::Dispatch は大好きなモジュールのひとつなんだけど、これだけだとイマイチ微妙。 Log::Dispatch::Config を使うことですげーー便利になる。必須。 miyagawa さんは 5 年以上も前にこれ作ったんだなぁ。 同僚から聞かれたので、僕のやり方を書いておく。 すでにCPANに Catalyst::Plugin::Log::Dispatch というのがあるのだけど、なんかいけてないのでそれは使わず、以下のようにしている。 まず MyApp::Logger とかいうのをかく package MyApp::Logger; use strict; use warnings; use Log::Dispatch::Config; use Log::Dispatch::Configurator::YAML; use Catalyst::Utils; use NEXT;
Apollo on Linux - CLON - 2007/03/19
apollo alpha1 でたので試す。 SDK はなんか Download for Macintosh and Windows (ZIP, 18 MB) とかってのしか見つからないんだけど、これそのまま Linux でもうごくぽい。java++ おとして unzip -d ~/app/flex apollo_sdk_alpha1_031907.zip などとして、Flex2 SDK のインストールディレクトリに上書き展開で、インストールかんりょ。 サンプルをコンパイルしてみる。 ~/app/flex/bin/amxmlc TextEditor.mxml これで、swf ができる。これはただの mxmlc のラッパぽい。その後、 ~/app/flex/bin/adt -package TextEditor.air TextEditor-app.xml TextEditor.swf ico
CLON - 2006/11/27 - 複数のアプリで共通のテンプレートファイルを使う
アカウントとってみた。 shibuya.pmで話していたFirefoxの拡張便利。 firefox.exe -chrome chrome://s3fox/content/s3foxWindow.xul とかで単独起動できる。 にはどうしたらいいのかなーとおもってTemplateのdocを眺めていたら my $tt = Template->new({ LOAD_TEMPLATES => [ Template::Provider->new( INCLUDE_PATH => '/path/to/myapp/templates' ), Template::Provider->new( INCLUDE_PATH => '/path/to/common/templates' ), ], PREFIX_MAP => { default => 0, common => 1, }, }); こんな感じでやれ
2006/06/27 - memo - unknownplace.org
Catalyst 5.70 の dev リリースでサポートされた Action attribute 良いね。 http://search.cpan.org/~mramberg/Catalyst-Action-RenderView-0.01/lib/Catalyst/Action/RenderView.pm こんなんとか簡単に作れる。cool。 sub foo : Action('+Foo::Bar') は sub foo : MyAction('Foo::Bar') と等価。 Catalyst::Manual::Actions
2006/04/02 - memo - unknownplace.org
miyagawa さんの emacs さばきをみていてなんかバッファの切り替えが違うぞと思って聞いたところ、iswitchb とかいうのを使ってると教えてもらった。 emacs21なら (iswitchb-default-keybindings) 22 なら (iswitchb-mode 1) で C-x b がインクリメンタルに。やべぇぇえぇ。ありえないほど便利。 perldoc ブラウザをつくっていたけどめんどくて飽きたので、YAPC 終わったら使い方まとめるとかいってた Plagger::Plugin::Store::DBIC に取り組む。 そのうち Plagger 本体もDB対応するということらしいのでそれまでの野良プラギン。とりあえず僕のレポジトリにUP。 使い方は sql ディレクトリにはいってる plagger.sqlite.sql から $ sqlite3 plagger.
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
2008/02/29 - memo - unknownplace.org
Flash with perl
2006/05/19 - memo - unknownplace.org