YAPC::Asia 2013でLT『How to inspect a RUNNING perl process』してきました＆スピーカーへのお願い - （ひ）メモ
YAPC::Asia 2013でLT『How to inspect a RUNNING perl process』してきました How to inspect a RUNNING perl process / YAPC::Asia Tokyo 2013 http://www.slideshare.net/hirose31/inspect-runningperl ハングアップとかメモリバカ食いとか、稀にしか発生しないヘンテコ状態のシューティングやるには静的デバッグより、今ヘンテコ状態にあるプロセスを直接まさぐるのが手っ取り早いよねーということで、既存の手法、 strace gdb bulkdbg gdbperl に加え、拙作の inspect-perl-proc について話しました。 https://github.com/hirose31/inspect-perl-proc 今のところ 3 つ
Web::Query - Yet another scraping library like jQuery - metacpan.org
NAME Web::Query - Yet another scraping library like jQuery VERSION version 1.01 SYNOPSIS use Web::Query; wq('http://www.w3.org/TR/html401/') ->find('div.head dt') ->each(sub { my $i = shift; printf("%d %s\n", $i+1, $_->text); }); DESCRIPTION Web::Query is a yet another scraping framework, have a jQuery like interface. Yes, I know Ingy's pQuery. But it's just alpha quality. It doesn't work. Web::Qu
watcher - watch the file updates - metacpan.org
NAME watcher - watch the file updates SYNOPSIS % watcher --dir . -- osascript -e 'tell application "Google Chrome" to reload active tab of window 1' --dir=. Directory to watch. --exclude Directory to ignore. --filter Regex of files to ignore --signal=HUP Sending signal to restart(Default: TERM)(EXPERIMENTAL) --send_only Sending signal without fork/exec(EXPERIMENTAL) -h --help show this help DESCRI
Contextの生成・破棄を任意のタイミングで制御可能にする Scope::Container(仮) - blog.nomadscafe.jp
追記 CPANリリースしました http://search.cpan.org/dist/Scope-Container/ /追記 mod_perl のアプリケーションでは、Apacheモジュールの提供するpnotesを使うとリクエスト毎のデータを簡単に持つことができます。pnotesに入れたデータはリクエストの処理が終了したところで自動的にクリーンアップされます。これを利用したのがリクエストごとにインスタンスを作成破棄できる、Apache::Singleton(::Request)です。 また、pnotesはデータベースの接続の管理にもしばしば使われます。1リクエストを裁いている間だけデータベースとの接続を維持し、リクエストが完了したところで接続を閉じるような処理に利用されています。このようにすることでmod_perlのプロセス数分(数百）の接続がMySQLに常に張られることもなく、また１
にひりずむ::しんぷる - CPAN モジュールをアンインストールする pm-uninstall を書いた
xaicron's pm-uninstall at master - GitHub 今までも、CPAN モジュールをアンインストールするために、 ExtUtils::Install と ExtUtils::Installed を使った、以下のようなエイリアスを書いて使っていたのですが、 alias cpan-uninstall='perl -MExtUtils::Install -MExtUtils::Installed -e "unshift@ARGV,new ExtUtils::Installed;sub a{\@ARGV};uninstall((eval{a->[0]->packlist(a->[1])}||do{require CPAN;a->[0]->packlist(CPAN::Shell->expandany(a->[1])->distribution->base_id=~m
標準出力や標準エラー出力を捕まえてテストする Test::Output / Capture::Tiny - 酒日記 はてな支店
Perl で、あるコードが標準エラー出力に吐き出した内容をテストしたい場面がありました。 自分でまず思いついたのは STDERR を dup して保存しておいて、ファイルにリダイレクトして、元に戻して、というやりかた。これはこれで動くのですが面倒。こういう場合は Test::Output (や miyagawa さんに教えてもらった Capture::Tiny) が便利です。 Test::Output はこんな感じ。 std(out|err)_(is|isnt|like) といったテスト関数が使えるようになります。 use Test::Output; use Test::More; stderr_is { # STDERR になにか出力するコード } "STDERRの内容", "description"; stdout_like { # code } qr/regexp/, "descri
What's your clone policy? - Data::Clone - Islands in the byte stream (legacy)
複雑なデータ構造のコピーにはStorable::dclone()やClone::clone()がよく使われてきた。しかし，これらのクローンポリシーには疑問がある。そこで，新しいクローンモジュールを書いてみた。 Data::Clone - search.cpan.org Data::Clone - github.org さて，まずStorableのポリシーはおおむね以下の通り： リファレンスはすべて深いコピー(deep copy) スカラー値に対しては，Perlレベルでの代入に等しい操作を行い，マジックは無視する オブジェクトに対しては，フックが定義されていればそれを使い，未定義であればその他のリファレンスと同じように扱う 次に，Cloneのポリシーはおおむね以下の通り： リファレンスはすべて深いコピー スカラー値に対しては，マジックも含めて可能な限りコピーする オブジェクトもその他のリファ
[Perl] 作成したモジュールをCPANで公開する手順
久しぶりに Perl モジュールを作成してみた ので、せっかくなので CPAN にアップロードしてみました、の手順をメモ。 もともと、2002年に CPAN へのアップロードサイト PAUSE 用のアカウントは 作ってあったけど、実際に自作モジュールを CPAN で公開してもらったことはなかったので、 実は今回が初挑戦でした。 もし↓に間違っている点がありましたら、ご指摘いただけると幸いです。＞識者の方 配布用のモジュールを作成する まず第一歩は、 perlnewmod - 新しいモジュールを配布するには を熟読すること。 モジュール .pm ファイルと、 そのアーカイブ .tar.gz ファイル を作成するのが最初です。 中身は以下のようなファイル構成になりました。 lib/XML/TreePP.pm # Perlモジュール本体 Makefile.PL # ほぼh2xsで生成したそのまま
Perl: Why parameters() sucks and what we can do
bulknews.typepad.com Tatsuhiko Miyagawa's blog to discuss mostly tech and nerdy stuff. In a typical web application the most frequently occurring task is to get parameters from a request. Perl community and popular frameworks have been having two interfaces to this: param() and parameters(). And there's a few issues. param() Good old CGI.pm has a convenient param() method, which behaves differentl
Tie::Traceで簡単に変数の中身を追う - JPerl Advent Calendar 2009
前置き こんにちは、id:ktatです。最近は、Util::Allというモジュールをいじってますが、CPAN にはあげてないので、紹介できません。 というわけで、今日はデバッグのお供に使えるかもしれない、Tie::Traceを紹介します。 本題 さて、perlのプログラムのデバッグするなら、perl -d というのも良いですが、print デバッグもお手軽でいいですよね。 しかし、怪しい変数を追いかけたり、見知らぬオブジェクトの中を調べたりするのに、いちいち print や warn を挿入していくのも面倒です。 そんな時には、Tie::Trace が役に立つかもしれません。 単純な例 次の $hoge、 @hoge、 %hoge の各変数を追いかけてみます。 use Tie::Trace qw/watch/; watch my $hoge; watch my @hoge; watch m
パスワード保存のお供に Crypt::SaltedHash - JPerl Advent Calendar 2009
パスワード保存のお供に Crypt::SaltedHash - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ こんにちは。はてなでは id:sfujiwara、それ以外のところでは fujiwara です。 Webサービスなどでユーザーのパスワードを預かる場合、「一方向ハッシュ関数を通した値を保存せよ」というのはよく知られた話だと思いますが、単に MD5 や SHA1 の値を保存するだけでは安全性に問題があります。 例えば Digest::MD5::Reverse というモジュールを使うと、MD5 の値を逆算することができてしまいます。 use Digest::MD5::Reverse; print reverse_md5("388c3c9c00e651cc163cbdd47f08c427"); # f
Server::Starter - a superdaemon for hot-deploying server programs - metacpan.org
NAME Server::Starter - a superdaemon for hot-deploying server programs SYNOPSIS # from command line % start_server --port=80 my_httpd # in my_httpd use Server::Starter qw(server_ports); my $listen_sock = IO::Socket::INET->new( Proto => 'tcp', ); $listen_sock->fdopen((values %{server_ports()})[0], 'w') or die "failed to bind to listening socket:$!"; while (1) { if (my $conn = $listen_sock->accept)
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
ikachan
Test-Mock-Guard-0.10 - Simple mock test library using RAII. - metacpan.org
SQL-NamedPlaceholder-0.10 - extension of placeholder - metacpan.org
Capture-Tiny-0.48 - Capture STDOUT and STDERR from Perl, XS or external programs - metacpan.org
Filesys-Notify-Simple-0.14 - Simple and dumb file system watcher - metacpan.org
App-cpanminus-1.7047 - get, unpack, build and install modules from CPAN - metacpan.org
XML-FeedPP-0.95 - Parse/write/merge/edit RSS/RDF/Atom syndication feeds - metacpan.org
Cache::FastMmap - search.cpan.org