perlのgotoはlexical scopeではなくdynamic scopeだという事を知った。 具体的にはどういう事かというと、こういう事ができるという事。 sub goto_label { goto LABEL } { print 1; goto_label(); print 2; LABEL: print 3; } { print 4; goto_label(); prin…