hidekiy blog: 2009/12

2009-12-31

AnyEventでのノンブロッキングなソケット・ファイルハンドル操作

ソケットを扱うとき

TCP/IPのソケットや、Unixドメインソケットを扱いたいときは、低水準で高速なAnyEventのIO watcherまたは、高水準な、AnyEvent::Handle を使う。

ローカルファイルを扱うとき

AnyEvent::AIO + IO::AIO を使う。

Linuxでは、今のところローカルファイルのハンドルに対するIO watcherが上手く動かない様子なので。

2009-12-29

PerlのEncodeモジュールは何を何にエンコードするのか

概要

Perlの文字コード変換用のモジュールEncode.pmの入門用記事は色々ありますが、入門の入門が必要なくらい説明が足りていないと思うので、記事にしてみます。

タイトルの問題の答え

タイトルにした問題の答えは、「夢の国のPerl内部表現文字列を、現実の世界の文字列(バイト列)にエンコードする(変換する)」です。

具体的には、関数$bytes = encode($charset, $string)はPerl内部表現文字列から外に出ていくバイト列を生成する(エンコードする)のに使って、$string = decode($charset, $bytes)は外からバイト列をPerl内部表現にデコードするという感じです。

ご存知かとは思いますが、モジュールの名前はEncodeなのに、なんと逆変換のdecodeもできます。

混乱を誘うさまざまな機能

そして混乱することに、utf8とencodingがあります。これらのモジュールはすべて小文字なので、Perlインタプリタの動作を変更するプラグマモジュールであり、ソースコードのエンコーディングを指定するという意味です。

このプラグマを有効にすると、文字列リテラルが単なるバイト列ではなく、Perl内部表現にdecodeされた状態で構文木が作られます。そんな必要がないなら指定してはいけません。

またさらに混乱することに、PerlIOの拡張によって、標準入出力、エラー出力、ファイル入出力で指定可能になる、フィルタの機能を使うと、透過的にエンコード、デコードが起こって何が起こっているのか良く分からなくなるので、encode, decodeを自在に操れるようになってから触るとよいです。

デバッグ方法

Devel::PeekでPerl内部表現文字列かどうかを表すutf8フラグを含めてDumpして観察する。\012みたいなのは1バイトを8進数3桁で表したもの。

2009-12-24

今日から始めるAnyEvent

AnyEvent とは

これまで、イベントドリブンフレームワークの実装には、POE, Danga::Socket, EV, Eventなどいろいろあって、互換性もなく混乱した状況でした。

AnyEvent はそういう諸々のAPIを、データベースへのAPIで考えられたDBIの様に抽象化したもので、具体的な実装には依存せず、どの(Any)イベントドリブンフレームワークを用いても、同じコードで動きます。今後はAnyEventで書いておけば安心です。

基本的な考え方

イベントハンドラにコールバック関数を登録します。
具体的には、on_readみたいなところに関数リファレンスを入れておく。
イベントループを回します。
具体的には、$cv = AE::cv でcondvarを作って、$cv->recv で処理をブロックしておけばよい。

AnyEvent->condvar がピンとこない

Condition variable? 状態は送信前と送信後の2つあります。ボンバーマンで考えると、リモコンボムです。具体的には、爆発する前の状態と、リモコンを使って爆発させた後の状態の2つです。

送信側は、$cv->send
受信側は、$cv->recv (届くまでブロック) または、$cv->cb($cb) (届いたら$cb->($cv)が実行される)

AE と AnyEvent の違いが良くわからん

AE の方が改良版の高速なAPIです。

AnyEvent->condvar と AE::cv

$w = AnyEvent->timer(after => $after, interval => $interval, cb => $cb)
と $w = AE::timer($after, $interval, $cb)

以上の関係を覚えればだいたいOK

hello world

こんな感じでいかがでしょうか。helloが出て、1秒後にworldが出ます。

use strict;
use warnings;
use AnyEvent;

my $done = AE::cv;
my $t = AE::timer 1, 0, sub {
    print "world\n";
    $done->send;
};

print "hello\n";

$done->recv;

あとは公式ドキュメントを読む

まずは、AnyEvent::Intro

詳細は、AnyEvent

2009-12-23

りんごジュースと浸透圧について

100%アップルジュースをそのまま飲むとちょっとくどい感じがするので、2倍くらいに薄めて飲むのがちょうどいいと感じていましたが、その根拠についてなんとか計算できたのでメモ。

アップルジュースのパッケージの成分表示を見ると、炭水化物 12.5g / 100mlと書いてあって、りんごに含まれる糖分は果糖やブドウ糖の単糖類。単糖類の分子量は180というのを使うと、100%アップルジュースの糖分のモル濃度は、0.69 mol/L

ところで、生理食塩水(0.9%)の水和性分子のモル濃度を考えると、NaClの式量が58.5というのを使って、完全に電離してイオン2つ分になるとして考えると、0.31 mol/L

よって、アップルジュースも半分位に薄めたらいい感じの浸透圧になりそうな事がわかります。

2009-12-21

moo cards

細長い名刺はmoo MiniCardsで、イギリスからの空便でした。

アドレスは、http://uk.moo.com/en/products/minicards.php クーポンコードを探して入れたらもう少し安くなります。

2009-12-05

PerlのDateTimeによる今風な日時処理についてのメモ

とても便利なのにまだ十分に活用されていない、DateTimeモジュールについて、実際に使ってみて気づいたことを書いておきます。

W3CDTF

DateTime::Format::W3CDTFは小数部を含む秒表現に対応していないので、W3CDTFのスーパーセットであるISO8601形式に対応したDateTime::Format::ISO8601を使う。

RSS

RSSの日時表現をパースするときは、表現が何種類かあるので、曖昧さに対応している、DateTime::Format::RSSを使う。

ミリ秒

時間精度が欲しいログを取る際などに、ミリ秒を記録したいときは、DateTime::HiResを使って、DateTime::HiRes->now->strftime('%Y-%m-%d %H:%M:%S.%3N') という感じで出力する。%3Nがミリ秒の部分となる。

JavaScriptなどで欲しくなる、ミリ秒でのUNIX epochが必要なときは、DateTime::HiRes->now->strftime('%s%3N') とする。

デバッグ

変な感じのときは、Data::Dumperで、内部変数を見てみる。

登録: 投稿 (Atom)

Google Analytics