on 2007/12/20 by ultraviolet, [Perl]

MyMiniCity にアクセスするイカサマスクリプトを perl で書いてみました。でも、どうも単に GET するだけじゃダメっぽい気がする。

on 2007/12/18 by ultraviolet, [Perl]

12月18日は、Perl 1.0 リリースから20周年の記念日です。

on 2007/02/17 by ultraviolet, [Perl]

会社で結構めんどいトラブルが起きてて、昨晩から対処に追われてます。tcpdump で取ったIPパケットを wireshark で眺めて問題を突き止めようとしたんだけど、パケット量が膨大になってやってられなくなったので、CPAN の Net::TcpDumpLog と NetPacket モジュールに食わせて perl でプロトコル解析するワザを急遽勉強しました。これは楽でええな。 その過程で NetPacket-0.04 の NetPacket::UDP にバグがあることを発見したので。 111c111 < return $tcp_obj->data; --- > return $tcp_obj->{data}; こうしないと NetPacket::UDP::strip() が使えませーん。

on 2006/12/08 by ultraviolet, [Perl]

はてなCTOの日記を参考にして、初めて Scalar::Utils::weaken を使ってみました。とあるスクリプトを SpeedyCGI 使ってプロセス永続化したんですけど、これが循環参照バリバリ。1サイクル終了時に相互参照をクリアするメソッド作ったんですが、どっか見落としがあったらしくて、どうしてもメモリから解放されないオブジェクトができてしまってた。 ところが Scalar::Util 使って循環参照になってるとおぼしき変数を全部 weaken してみたんだけど、DESTORY されるかどうか見てみると、1サイクル終わっても1つだけ解放されないオブジェクトが残ってる。どうしちゃるかねとゆうわけで、今度は Devel::Cycle を CPAN から取って来てインストール。ところがこれ、参照元側のオブジェクトを1個指定して循環参照を検索するもんなんですね。どれが参照元なのかわからないので、やっぱり見つからないー。 なんか入れるとそれを参照してる参照元を探してくれるモジュールって何か無いですかね? Postedit: 思惑通り 小飼さんきたー。ありがとうございます。 うちの perl は Debian Etch に入ってる -DDEBUGGING 無しのやつだったので、さっそく perl-debug パッケージを追加で入れて、Devel::Leak も入れました。今から改めてデバッグ。

on 2006/03/24 by mara, [Gender,Perl]

Pugs の開発者として知られる Audrey Tang の性別はいろいろわかりにくいところみたいで、結城浩さんとこの今日の記事 では女性と言及されてる 言及は女性形で行なうがたぶん正しいんだけど、詳細には 彼女の blog 記事 を読むとわかるように、実は性同一障害だったりする たぶん戸籍上はまだ男性のまま だけど、本人は女性として言及されることを望んでるので、そういうふうに言及するのがいいと思う 名前も、もともとは Autrijus Tang (唐宗漢)って名前だったんだけど、女性っぽく聞こえる Audrey Tang (唐鳳) に改名したとのこと

on 2006/03/06 by ultraviolet, [Perl]

すんません、誰かご存知の方がいらっしゃったら教えていただきたいんですが。 perl 5.8.* のパターンマッチで、\p での Unicode 属性を使う場合なんですが、不正な属性名を指定した場合にエラーになるかならないかがどこで分かれるか、ってご存知の方いらっしゃいませんか? うちの環境は 5.8.8 なんですが、 m/\p{IsDAMEDAME}/; だとエラーにならず普通にアンマッチ、一方 m/\p{IsDAMEDAME}/i; にすると Can't find Unicode property definition "DAMEDAME" とのエラーを吐き、さらに m/ \p{IsDAMEDAME}/i; だとまたエラー吐かなくなるみたいです。なんでこういう挙動になるのか理解でけないんです。 いや、不正な属性名を使うのがそもそもいかんのではありますが、いろいろ事情があってエラーをトラップしなきゃならん仕事がありまして。やっぱそんな馬鹿な仕事持ってきた nakanohito が悪いってことか。 2006/03/07 追記: 404 Blog Not Found の小飼弾さんが調査・究明してくださいました。ありがとうございます。そうか on demand load だったのかー。同じ正規表現でもエラーが出る時と出ない時があるのね。

on 2006/01/26 by ultraviolet, [Perl,Spam] , bilingual

Nikolay Bachiyski in Burgaria made Net::Akismet, a perl module to call Akismet API for detecting comment/trackback spams. Though I once made a similar module, I guess Bachiyski will provide a better support. Now, anybody can write an Akismet spam blocker plugin for Movable Type. Won’t you?

on 2006/01/11 by ultraviolet, [Perl,WWW]

あわわわ。b.hatena コメント全回収に味をしめて今度は del.icio.us のも全回収とか思って例によって perl でスクリプト組んでテストしてたら、 500 Server closed connection without sending any data back と言われるよおになってしまいまひた。 まあ重くなっただけでさすがに落ちてはなかったんですが、慌てて wait を増やしたのでありました。

on 2005/12/16 by ultraviolet, [Perl]

がーん。ActiveState が VisualPerl/VisualPython/VisualXSLT を打ち切るそうです。まあ使ってる人ほとんどいなかったしなあ。VisualStudio 使う層と Perl 使いの層ってのもほとんど重なりが無かったし。けどちょっと悲しい。

on 2005/12/07 by ultraviolet, [Blogging,Perl] , bilingual

Perl Foundation Blog is officially announced. It’s Movable Type. They cannot use WordPress because it runs on PHP of course.