perlのへぇへぇへぇ(4)

型グロブの性質の一例。

use strict;

use vars qw($foo);

$foo = 'FOO';

local *HOGE = 'main::foo';

print ${*HOGE{SCALAR}};

こいつはエラーを吐かずに予期した通りの動作をする。perlな人じゃないと絶対書かないコードだけどね(-_-)。