Perl Quiz
ネタをふられたので回答
http://d.hatena.ne.jp/hirafoo/20100319/1269007390
問題は以下参照
http://quill.to/yoshiki/0a66f62e14
びみょーなかんじだけど
再起の場合
$key =~/\./ ? foo($a_ref->{$`}, $', $value) : ($a_ref->{$key} = $value);
evalの場合
$key=~s/\./}->{/g ? eval"\$a_ref->{$key} = $value" : ($a_ref->{$key} = $value);
ーー追記ーー
暗号といわれたので長い変数版
再起の場合
use English; # use のところに書いてください $key =~/\./ ? foo($a_ref->{$PREMATCH}, $POSTMATCH, $value) : ($a_ref->{$key} = $value);