perl – 当我的()是有条件的时候发生什么？

发布时间：2020-12-15 21:13:14 所属栏目：大数据来源：网络整理

导读：比较使用perl -w -Mstrict： # case Alphaprint $c; … # case Bravoif (0) { my $c = 1;}print $c; … # case Charliemy $c = 1 if 0;print $c; Alpha和Bravo都抱怨没有显式包名称的全局符号,这是预期的.但是查理没有给出相同的警告,只有这个价值是未初始化

比较使用perl -w -Mstrict：

# case Alpha
print $c;

…

# case Bravo
if (0) {
  my $c = 1;
}

print $c;

…

# case Charlie
my $c = 1 if 0;
print $c;

Alpha和Bravo都抱怨没有显式包名称的全局符号,这是预期的.但是查理没有给出相同的警告,只有这个价值是未初始化的,这闻起来很像：

# case Delta
my $c;
print $c;

在引擎盖下究竟发生了什么？ (即使这样做不应该写为生产代码)

解决方法

您可以将我的声明视为在编译时和运行时都有动作.在编译时,我的一个声明告诉编译器记下一个符号是否存在,直到当前词法范围结束.该声明中的符号的转让或其他使用将在运行时进行.

所以你的例子

my $c = 1 if 0;

就好像

my $c;         # compile-time declaration,initialized to undef
$c = 1 if 0;   # runtime -- as written has no effect

请注意,此编译时/运行时区别允许您编写这样的代码.

my $DEBUG;    # lexical scope variable declared at compile-time
BEGIN {
    $DEBUG = $ENV{MY_DEBUG};   # statement executed at compile-time
};

现在可以猜到这个程序的输出是什么？

my $c = 3;
BEGIN {
    print "$c is $cn";
    $c = 4;
}
print "$c is $cn";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!