あの髪型はないわ RSS

自分ようのめも。Shut the fuck up and write some code.

考えとちゅーのこととかポストしてるから。アレ。

他人に見せるためのものじゃないから見ないでください。見た場合は相応の賠償を。
Jul
6th
Mon
permalink
I need :BEGIN attribute for subroutine 最近すごく「欲しいの。。。」とおもっているのが :BEGIN 属性あるいはそれにかわるなにかだ。 Moose’s ’extends’ has a problem. extends ‘Foo’; ’extends’ is evaluated at run-time!This cause some problems.Basically solution for this problem is:…
Jul
3rd
Fri
permalink
[segv]today’s segv use Compress::Zlib; use Devel::Symdump; Devel::Symdump->rnew->packages これが perl5.10 だと bus error になってしまいます。Devel::Symdump は Test::Class でもつかわれているので困りもの。 チケットはだいぶ前にでてるようなんですが。誰かなおしてくれる
permalink
Test::Requires - Checks to see if the module can be loaded 「あのモジュールがインストールされてなかったら、このテストはスキップな」っていう設定をしたいときは結構あるんだけどもこれをちゃんと実装するのは意外と難しい。そして、設定が繁雑になりがちだ。 use Test::More; plan “this test requires HTTP::MobileAttribut
permalink
[perl]today’s segv Infinite recursion on import cause segmentation fault. package hoge; sub import { my $class = shift; eval “use $class”; } 1; perl -Ilib -e ‘require hoge;hoge->import’ Deep recursion on subroutine…
Jul
2nd
Thu
permalink
valgrind を osx で。 長らく valgrind は osx では動かなくて残念な感じだったわけだが、svn head では osx 対応があらかたすんでおり、使えるようになっているということなので試してみた。 普通の automake/autoconf なプロジェクトなので以下のようにすればうごく。 svn co svn://svn.valgrin
permalink
Data::MessagePack for Perl を cpan にあげた バイナリなシリアライザであるところの messagepack を CPAN にもあげましたよというお話。 CPAN にない Perl Module はこの世に存在しないも同じだし、存在価値がないというようなことを言われるので、あげてみました。 Enjoy!
permalink
find memory related bugs in xs modules XS なモジュールをテストする際には、vincent pit の Test::Valgrind をつかうといいだろう。 cpan Test::Valgrind などとしてインストールし、 prove —exec ‘perl -Iblib/lib -Iblib/arch -MTest::Valgrind’ t/*.t などと打てば、t/*.t をはしらせて、メモリ
Jul
1st
Wed
permalink
Generate thumbnail images with Image::Epeg http://0xcc.net/blog/archives/000096.html にて紹介されている libepeg の perl bindings であるところの Image::Epeg はメンテナンスされてなくて、最新の libepeg だとうごかなかったんですが、うごくようにしたいよね、ということでメンテナンスしたということがありま
Jun
30th
Tue
permalink
detect xss in TT 昔書いた TT の中にある XSS を発見するスクリプトを発見したのでサルベージしとくます。 #!/usr/local/bin/ruby ARGV.each {|fname| File.read(fname).scan(/￥[%-?(.+?)-?%￥]/i) {|m| body = $1 unless %w(SWITCH CASE USE PROCESS BLOCK INCLUDE ELSE…
permalink
summary of cons/pros about ithreads/coro/fork(2) rafl wishes gfuji and tokuhirom would blog in english などといわれたので、ためしに英語で1エントリだけかいてみるよ。 Perl5 has some ways for concurrent programming.This article is research summary for that tools. summary…