2008-12-07から1日間の記事一覧

JPerl Advent Calendar 7日目

typesterさんからバトンを受け取ったので、「コマンドラインスイッチと特殊変数を使いまくる」という記事を書いてみました。 http://perl-users.jp/articles/advent-calendar/2008/07.html「使いまくる」といえるほどの記事ではないんですが、1ライナーにな…

メモリー計測スクリプト

tokuhiromさんの簡易シェルでメモリーの使用量をはかるっていうアイデアがいいなぁと思って試してみました。 http://d.hatena.ne.jp/tokuhirom/20081206/1228567506ただ、GTopが手元のUbuntuでインストールできず(GTopが2からインターフェースが変わってGTo…

アプリの使ってるモジュール郡のメモリ測定

Devel::FindNamespacesと組み合わせてみたら面白いんじゃないかと思ってやってみた。 #!/usr/bin/env perl use strict; use warnings; use Devel::MemUsed; use Devel::FindNamespaces; foreach my $module ( Devel::FindNamespaces->find(shift) ) { my $pi…

依存モジュールのメモリー測定チェック

さっきのエントリで書いたMakefile.PLのrequiresをチェックして、依存モジュールをuseしたときのメモリ使用量チェックするスクリプト書いてみた。 #!/usr/bin/env perl use strict; use warnings; use Devel::MemUsed; use Module::Depends; my $deps = Modu…

HTTP::Router++

WAFを作っていて、HTTP::Router側にほしいなぁと思っていた機能を幾つかいれてみた。HTTP::Router側にmap.resourceとかmap.connectとかの記述からRoute作るBuilderの機能とRouting Tableのデバッグ用機能。実装はちょっともっとDRYになるように修正したいな…