2008-12-08 Perlのド変態っぷりを見た。 Perl attributes 無名サブルーチンにアトリビュート付くのかよwwwwwwwwwwwww use attributes; my $a = 1; my $b = sub : lvalue { $a }; print $a; # 1 $b- >() = 2; print $a; # 2 (`・ω・´)なんという変態