Internals::SvREADONLY() はオススメできない - stfuawsc

2014/04/21 7 users Internals stfuawsc immutable

Immutable な hashref, arrayref たまに欲しくなりますが Internals::SvREADONLY() はクセが強すぎてあまりオススメできないです。 たとえ次のコードの挙動を言い当てられたとしても、赤の他人（≒ 半年後の自分）が見た時に分かるかどうかは怪しいかと。 use strict; use warnings; use Data::Lock 'dlock'; my ... 続きを読む

HTTP レスポンスオブジェクトを簡単に作れる Perl モジュールを書きました - NaN days - subtech

2012/04/10 57 users subtech ステータスコード http status 定数

app.psgi 1 ファイルだけの簡単な PSGI アプリを書くとき、200 やら 302 やら 501 を返すのにいちいち ArrayRef を書いて返すのが面倒なので、モジュールを書いて簡単にできるようにしてみました。 モジュールを use すると HTTP::Status が提供する定数と同じような名前の関数を定義し、これらの一つ一つがそのステータスコードに対応したレスポンスを生成する関数... 続きを読む

UTF-8 フラグと戦う人へ - にぽたん研究所

2005/09/20 70 users ぽたん研究所 Parse unicode Simple XML

ひさびさに Blog を書いてみる。 UTF-8 フラグがどうもウザいという人向けにこんな CPAN モジュールがあるそうな。 Unicode::RecursiveDowngrade hashref とか、arrayref とか複雑な構造になった変数 (たとえば XML や RSS を XML::Simple や XML::RSS 等で parse した構造) を、構造を変えることなく、値全ての ... 続きを読む