こんなんをやると変数を隠蔽しつつ、横断的に変数をもてるけど、 my ( $inc_cref, $get_counter_cref ) = var_share_closure(); $inc_cref->() foreach ( 0 .. 5 ); print $get_counter_cref->() . "\n"; sub var_share_closure { my $count = 0; return ( s…