| #!/usr/bin/perl –w our $a =1; print “初始化外部 $a\n”; sub test1{ our $a=2; print “函数 $a \n”; &test2(); } sub test2{ print “函数的调用函数 $a \n”; } test1(); Print “最终外部 $a\n”;
结果：1,2,2,2 | #!/usr/bin/perl –w our $a =1; print “初始化外部 $a\n”; sub test1{ local $a=2; print “函数 $a \n”; &test2(); } sub test2{ print “函数的调用函数 $a \n”; } test1(); Print “最终外部 $a\n”;
结果：1,2,2,1 | #!/usr/bin/perl –w our $a =1; print “初始化外部 $a\n”; sub test1{ my $a=2; print “函数 $a \n”; &test2(); } sub test2{ print “函数的调用函数 $a \n”; } test1(); Print “最终外部 $a\n”;
结果：1,2,1,1 | #!/usr/bin/perl –w my/local/our $a =1; print “初始化外部 $a\n”; sub test1{ $a=2; print “函数 $a \n”; &test2(); } sub test2{ print “函数的调用函数 $a \n”; } test1(); Print “最终外部 $a\n”;
结果：1,2,2,2 |
扫一扫
689
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
