わたなべです.

sinara / blade.nagaokaut.ac.jp writes:

:そうですね。perl の s/// の e オプションがイテレータに相当
:するんだけど、あれは見にくいですからね。

sub unquote {
    local ($_) = shift;
    s/%([0-9a-fA-F][0-9a-fA-F])/ {
	pack("H2", $1);
    }
    /ge;
    $_;
}

こう書けばそれほど見にくくないよん.