multilog に access log と error log をまぜてだすと、エラーでてんのかどうかよくわからなくなっちゃうので、まあわけた方がよろしい。 multilog でパターンマッチで適当に分割するという手もあるけれど、アクセスログは集計などにもつかうので、日ごとにファイルがわかれていた方が便利でしょう。 というわけで、こんな風にしてみた。 use Plack::Builder; builder { open my $fh, "| /usr/bin/cronolog /var/log/plackup/%Y/%m/myapp-%Y%m%d.l og" or die "cannot load log file: $!"; select $fh; $|++; select STDOUT; enable 'Plack::Middleware::AccessLog', logger =

PubSubHubbub(以下PuSH)は、フィードの更新をリアルタイムに通知するためのプロトコルである。 ウェブ上にころがっている"PuSH"の情報は、"Pub" の部分を実装する方法か、「PubSubHubbub の本家GAE実装を手元でうごかしてみたよ」という記事しかなくて、"Sub"を実装する方法について解説しているブログなどはみあたらなかったので、ここに記す(英語だといくつかあった)。 基本的に、ほとんどの人が興味あるのは "Pub" の部分である。自分のブログの更新情報等をリアルタイムにおくりつけたいと考えるからである。実際、ほとんどのブログソフトウェアではすでに PuSH 対応がすんでいる。see MT-PuSH, etc. しかし、私は今まさに Subscriber をつくりたいとおもったのである。なぜならば、"friendfeed.com/cpan" の更新情報を PuS

CPAN のメタデータは以下の3つにより配布されている。 authors/01mailrc.txt.gzmodules/02packages.details.txt.gzmodules/03modlist.data.gzいずれも gzip した状態で 200KB を越えるようなわりと大きなテキストファイルなので、これを web site や、CLI 等から直接利用すると、速度が遅くなる。 そこで、以下のような解決策がかんがえられているみたいです。 CPAN::SQLitehttp://search.cpan.org/~rkobes/CPAN-SQLite-0.199/ 上記ファイルから SQLite にデータをつっこむスクリプトを提供。検索用のメソッドも提供してくれる。 なお、一部の検索系のメソッドに SQL Injection 脆弱性があるので注意。ユーザーからの入力を直接いれさせると大

基本的に Perl5 は下位互換性が非常によく保持されていますから、use 5.10; などによる縛りをかけないかぎり、「過去バージョンでうごくのに最新のバージョンだとうごかないよう」ということはまずありません。 もしあれば、それは perl5 のバグです。(perl5.10.0 はかなり大幅に書きかえられているので、エッジケースでごくまれにこういうバグを踏みぬく可能性があります) 「最新バージョンでうごくのに、過去のバージョンでうごかないよう」というケースもまずありません。use 5.008001; としているモジュールでは、ほぼほぼ互換性が問題になることはありません。 5.8.5 以前で sub import { } の中で @_ を変更してから goto すると SEGV する*バグ*とか、そういう既知バグを踏む可能性があるぐらいです。 そのへんは perl\d+delta にのって

http://github.com/tokuhirom/cpanminus/compare/no-xs local::lib を利用して extlib/ を構築する方法が最近流行りだ。cpanm とくみあわせれば、capnm -l extlib/ Plack などとすれば一発で構築できる。 しかし、こうして作成した extlib/ には XS モジュールもはいってしまってポータブルにならない。不特定多数にたいして配布したり、レンタルサーバー等にアップロードしようとおもっている場合には不適である。 (具体的には MENTA や mobirc など) そこで、cpanm -l extlib --no-xs Plack などとすると、XS がはいらないようにするオプションをかんがえてみた。特定のモジュールの場合だけ Makefile.PL/Build.PL の @ARGV に細工するという仕組み

諸事情により、頻繁にいろんなソフトウェアをいれているわけですが、入れるたびに「どこからイレるんだっけ」とおもって、さがすのがめんどくさいので、オレオレportsモドキをつくってつかっている。 shell script でがんばってかいたものをここ数ヶ月つかっていたのだが いろいろやれることふやしすぎてスパゲッティ方向性がさだまらない感じで拡張しすぎたシェルスクリプトでがんばるのがめんどいといったことにより、どうにもならなくなったので、perl で全部かきなおした。 なお、ディレクトリ構造とか、管理の方法は下記のページをまるぱくっている。 http://d.hatena.ne.jp/hirose31/20091217/1260981836 インストーラというか、そういうのはこのへんにおいてある。 http://github.com/tokuhirom/myport インストールするための設定

Module::Build の目標は make の排除だとおもうのだが、現実的には、EU::MM に依存している場合には make が必要だし、ある人のモジュールだけが make なしではいるようになってもとくにうれしくはない。 つまり、移行するメリットが薄い。よって、流行らなかったのだとおもう。 おぼえることがふえるのやだし。 EU::MM はもはや積極的に開発はされないようだが、普通に使う分にはもんだいないし、メンテナンスはされてる。 単純な pure perl のモジュールなら、これをそのままつかっても問題はない。 ただし、ちょっとこった実行時の処理などをやろうとすると、よみづらい Makefile.PL ができあがる傾向があるようにおもう。 クールなインターフェースを提供してくれる。プラガブルで拡張可能だ。 日本では、Plagger で M::I が採用されたことを契機に、一気にひ

http://cpanrecent.64p.org/ Now a days, typester's CPAN recent changes site is not works... I want to read it... then, I re-invented it :D How it works?fetch recent module information from id:miyagwa's CPAN fresh friendfeed http://friendfeed.com/cpanget tar ball from http://cpan.cpantesters.org/get latest Changes file from search.cpan.orgextract tar ball by Archive::Target diff with Algorithm::Diff

http://cpanrecent.64p.org/ typester さんの CPAN Recent Changes が落ちっぱなしなので、こまったなーとおもってたら、tomi-ru さんが Y! Pipes でつくってくれて、便利だなーとおもってたんだけど、これはちょっと情報量がおおすぎるのと、なんか更新がおそいなーとおもったので、新しくつくってみた(あの Y!Pipes をイジる根性は僕にはなかった)。 typo さんの実装よりも適当だけど、それなりにうごいてるっぽい。仕組みは英語でかいたので、それよんでください。まあ diff の精度はそこそこでてればいいかなあ、といった程度。連続してうpすると変になるだろうけど、まあいいか、といったかんじ。 だれかなおしてくれたらうれしい。 コードも github にあるし、なんか問題あったらすぐなおせるし、だれでもすぐにホスティングできるとおも

http://github.com/tokuhirom/p5-archive-zip-uncompressed pure perl で無圧縮zipの展開/パッキングをするためのライブラリをかいた。 pure perl なのと、メモリ使用量がすくないのが利点かなとおもう。 zip のフォーマットは、まあ綺麗じゃないね。とおもった。 まあ、普通に Archive::Zip つかったらいいとおもうよ。

This entry is just thinking note for me. % perl -MO=Terse -e '1 ~~ 2' LISTOP (0x11ba080) leave [1] OP (0x11ab4f0) enter COP (0x11b9c30) nextstate BINOP (0x11ba150) smartmatch SVOP (0x11ba3e0) const IV (0x1195328) 1 SVOP (0x11ba290) const IV (0x11b0890) 2 % perl -MO=Terse -E 'given(1) { when (2) { } }' LISTOP (0x1171d30) leave [1] OP (0x105e0e0) enter COP (0x11a2970) nextstate UNOP (0x1171db0) leav

http://search.cpan.org/dist/App-cpanoutdated/ 個人サイトで借りてる貸しサーバーはシェルが使えるんだけどroot権限が無く各種メモリの制限も強い。で、CPANコマンドを使うとlimit制限にひっかかってmoduleindexを伸張するところでOut of memoryエラーが出て落っこちちゃうという状態なんだけど。 今までは仕方がないからtar.gzでモジュールソースをもってきてperl Makefile.PL && make && make installと古典的な手段で入れていた。 しかし cpan-outdated を使うことでcpan使わずに楽に更新できるようになった。 cpan-outdated | xargs cpanmで古いモジュールがすべて一発更新される。 依存モジュールなどすべて排除し、perl5.8.0 or later でう

http://github.com/tokuhirom/cpan-outdated I wrote tiny script named cpan-outdated. It's so fast, lightweight version of 'CPAN::Shell->r'. It can work on cheap memory environment like vps(e.g. linode,cpi vps, etc.). And cpan-outdated is so fast. perl cpan-outdated 8.24s user 1.59s system 84% cpu 11.697 total perl -MCPAN -e 'CPAN::Shell->r' 26.40s user 2.61s system 99% cpu 29.022 totalAnd it's cpanm

plackup -s Standalone::Prefork::Server::Starter ってかいてあるところを plackup -s Starman --worker 3とかにかえればいい。 starman っていうコマンドがあるけどこれは alias starman="plackup -s Starman"相当のコマンドなので無理につかう必要はない。 Starman のオプションは starman -hとすればみれる。 なお、Starman は Plack の開発版リリースが必要なので注意。 Starman は UNIX domain socket を listen することも可能なので、nginx などを front の reverse proxy としておいている場合等では、うまく利用するとパフォーマンスが向上するかもしれない。

http://perl-mongers.org/2010/02/the-fastest-way-to-mastering-moose-and-mouse.html Class::MOP関連の処理を省いていたり、XSで実装されている部分が多かったりするので、Mouseのロード, インスタンスの生成, Mouseクラスに於ける処理の実行時のいずれもMooseより高速に動作します。 ってかいてある。 ロード速度は単に "Moose constructs internal classes at run time" が遅いってのが最大の問題点で、起動時の速度には XS とか MOP less とかはほとんど寄与してない(と俺はおもってる)。 で、実行時の速度については XS が有効にはたらいていて、gfx++ なわけですが、今後 Moose の開発が安定してきたら Moose にフィードバックされる

いつもどおりチラ裏ですけど。 HTTP::Engine::Interface::Standalone は Catalyst の スタンドアロンサーバをコピペしたところからはじまったのだけど、あんまメンテされてなくて、IE でファイルアップロードしたりするとうまくうごかなかったりして、それをなおすのにすごい時間かかったりして、なんかだるいかんじだった(たぶん kazuho さんがてつだってくれなかったら、さらに時間かかってたとおもう。なんか keep-alive んときだかに 2 byte 余計なバイトがついてくるとかだったかな)し、別に開発用にしかつかってなかったし、そもそも Interface::ServerSimple と用途かぶってるし、いらなくね?っていうことで消すことにしたのが数年前のことで、Plack がでてきたから pod を最近かきかえた、という話。なので、Standalo

Plack コアは XS に依存しないStarman は XS に依存する PP がよければ Server::Simple のをつかうTwiggy は XS に依存しない(ようにかえてもらった) 一個しか XS 依存ないし、mobirc とかでつかいたいので、はずしてもらったという具合。

以下のように、-MO=Terse すると、コンパイル時に定数の畳み込み最適化的な奴でたたみこまれて sv_yes とか sv_no になってることがわかる。 % perl -MO=Terse -e 'print !!1' LISTOP (0x1ea6180) leave [1] OP (0x1e96ba0) enter COP (0x1ea5c60) nextstate LISTOP (0x1ea62c0) print OP (0x1e97510) pushmark SVOP (0x1ea6410) const SPECIAL (0x2) sv_yes % perl -MO=Terse -e 'print !1' LISTOP (0x1151180) leave [1] OP (0x1141ba0) enter COP (0x1150c60) nextstate LISTOP (0x115