小编Vic*_*pta的帖子

sub fun2{
    my $var2 = 10;

    my sub fun1{
        print"$var2";
        $var2++;
    }
   fun1();
   print "$var2";
 }

 fun2();

我想打印10和11,这段代码给出错误"实验"我的"未在source_file启用",如果我从"my sub fun1"中删除"my"关键字然后它给出错误"变量"$ var2"将不会停留在source_file.pl行共享"我们如何允许内部子修改外部子的数据？

谢谢