perl - 当 my() 有条件时会发生什么？

Question

比较使用 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两者都提示全局符号没有明确的包名称，这是意料之中的。但是 Charlie没有给出相同的警告，只是该值未初始化，闻起来很像:

# case Delta
my $c;
print $c;

引擎盖下到底发生了什么？ (即使永远不应该为生产代码编写这样的东西)

Answer 1

你可以想到一个my声明为在编译时和运行时具有 Action 。在编译时，一个 my声明告诉编译器注意一个符号存在并且在当前词法作用域结束之前一直可用。该声明中符号的赋值或其他使用将在运行时进行。

所以你的例子

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 $c\n";
    $c = 4;
}
print "\$c is $c\n";