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

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

所以你的例子

@H_262_2@my $c = 1 if 0;

就好像

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

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

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

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

@H_262_2@my $c = 3; BEGIN { print "\$c is $c\n"; $c = 4; } print "\$c is $c\n";