> 二人もいるとは豊作だ
> use strict;
> した場合に
> local $foo;
> とローカル宣言が出来なくなるよね
> これの代用方法というかuse strict;した場合もlocalと同様のスコープを持つ変数を使いたいんだが
> どうすればいいのだろう
> それともuse strict;しない方がいいのだろうか

sub a1 {
	local $foo;
	a2();
}
sub a2 {
	$fooを使う
}


むりやりmyで実現してみる。
sub b {
	my $foo;
	my $b1 = sub {
		&$b2;
	};
	my $b2 = sub {
		$fooを使う
	};
	&$b1;
}

ここまでしたい？
素直に引数使っておけ。

参考：2000/12/12(火)10時12分20秒