perl - perl中的未初始化值错误

Question

我是 perl 的新手(一般来说是编程方面的新手，但我已经习惯了 Python)。

use strict;
use warnings;
use diagnostics;

my $simple_variable = "string";
print my $simple_variable;

基本上我想知道为什么这个脚本返回一个未初始化的值错误，因为变量已经明确定义。

谢谢

Answer 1

my 创建一个变量并将其初始化为 undef(标量)或空(数组和散列)。它还返回它创建的变量。

因此，

print my $simple_variable;

和

是一样的

my $simple_variable = undef;
print $simple_variable;

你本来想做的

my $simple_variable = "string";
print $simple_variable;

我不确定您为什么要问这个问题，因为 Perl 已经告诉了您很多。您的程序输出以下内容:

"my" variable $simple_variable masks earlier declaration in same scope at a.pl
        line 6 (#1)
    (W misc) A "my", "our" or "state" variable has been redeclared in the
    current scope or statement, effectively eliminating all access to the
    previous instance.  This is almost always a typographical error.  Note
    that the earlier variable will still exist until the end of the scope
    or until all closure referents to it are destroyed.

请注意新声明如何产生“有效地消除对先前实例的所有访问”的效果。