なんとなくは理解していたけど、さらに理解を深めるためにコードを書いてみる。 use strict; our $foo = "This is foo."; sub foo { print $foo, "\n"; } our $bar = "This is bar."; sub bar { print $bar, "\n"; } print "1.----\n"; #型グロブ *hoge = *f…