0532nobodyさん垢版 | 大砲2012/07/21(土) 03:45:43.84ID:??? perl use strict; use warnings; sub foo { $a=2; } sub bar { $a=3; } foo(); bar(); print $a まあ、なんて恐ろしい。警告も出ずに3が表示されます。