✖
✖
✖
やっぱ他人の人生を見ているほうが圧倒的に楽しい……なんかこう、わくわくする
✖
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:リナカフェkits_: @cho45 List::MoreUtils::natatimeで: my $it=natatime 2,@$array_ref;while(my($key, $val)=$it->()){}Email::MIME で余計なヘッダを消す方法
少々ハマって、コードを読むはめになったのでメモ
my $mime = EMail::MIME->create(
attributes => { },
body => "foobar",
);
$mime->header_set('Date' => ());
$mime->header_set('MIME-Version' => ());multipart メッセージ作るとき余計なヘッダが入って困りました。
✖
最近やたら文字コードまわりをいじっていたおかげで Perl の utf8 フラグも感覚がつかめてきたけど、説明できるほどにまでならない