2009年 09月 29日

Memo: Perl で連想配列?をぶんまわす方法

HTTP ヘッダやら MIME ヘッダというのは同じ名称のキーを持つ値をいくつかとり、ハッシュでデータ保持することができないので

my $headers = [
    "Content-Type" => "text/plain",
    "Set-Cookie"   => "....",
    "Set-Cookie"   => "....",
];

みたいなデータ構造にするのですが、これをうまいこと回す方法を知らなかったので教えてもらったのをメモってなかったのでメモ

Yappo: @cho45 while(my($k, $v) = splice @$array, 0, 2){} L:リナカフェ
http://twitter.com/Yappo/status/3976086907
kits_: @cho45 List::MoreUtils::natatimeで: my $it=natatime 2,@$array_ref;while(my($key, $val)=$it->()){}
http://twitter.com/kits_/status/3976730409