2009-06-23から1日間の記事一覧
先日紹介した、結城先生のPerlクイズの以下の回答が、さっぱり分からなかったので調べてみました。 use overload '""' => sub{${+shift}*$_*2}, '0+'=>sub{${+shift}}; BEGIN { overload::constant (integer => sub{my $a=shift; bless \$a, 'main'}) } http…
先日紹介した、結城先生のPerlクイズの以下の回答が、さっぱり分からなかったので調べてみました。 use overload '""' => sub{${+shift}*$_*2}, '0+'=>sub{${+shift}}; BEGIN { overload::constant (integer => sub{my $a=shift; bless \$a, 'main'}) } http…