2007-11-08 グローバルな失敗 Perl aa.pl use strict; use vars qw($aa); use BB; sub main { my $aa = 1; BB->func(); } main; BB.pm package BB; use strict; sub func { print $main::aa, "\n"; } 1; たまにグローバル使うとはまるね. 自動的にmyを挿入する,この手が憎い.