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を挿入する,この手が憎い.
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。