Perl 子程序本地全局问题

Question

对于这个小代码，它总是在全局代码块中打印@x 的值。如果我不小心没有在没有“my @x”的子例程中初始化变量，如何发出警告。我不想将子例程中的局部变量用作@x。

use strict;
use warnings;
my @x=qw/1 2 3/;

&mysub();

sub mysub{

    print "@x";
}

Answer 1

使用常规 Perl 你不能做到这一点。解决方案是不要在较小的范围内重复使用相同的变量名。

---

如果您想以编程方式强制执行此操作，可以使用Perl::Critic。政策Perl::Critic::Policy::Variables::ProhibitReusedNames 会告诉您是否重用了已在外部作用域中定义的变量名称。

Answer 2

1. 更好地组织您的代码。

   use strict;
   use warnings;
   
   sub mysub{
       print "@x";
   }
   
   {
       my @x=qw/1 2 3/;
       mysub();
   }
   

   通过正确本地化变量，不会发生意外引用错误的变化。

2. 不要使用这种无意义的变量名。

   偶然访问@frobs_by_name的可能性很小。