perl 中 our 用法

对变量的声明， 声明的是全局变量。

与my的区别：

1.共同点： 都是对变量的声明。

2.区别： our声明的是一个全局变量， my声明的是一个局部变量。

注意：用our定义过的变量，可以在任何地方被再次用our定义，仍然和第一个our定义的变量是同一个。

举例说明1：

our $NAME = "red";

{

my $NAME?= "green";
our $NAME?= "yellow"; ?# 这里的our和外面的相同，和前句不同。?# 这里调用的代码看到的是"yellow"

}

print $NAME,"n"

输出：

yellow

举例说明2：

my $num = 1;

{

my $num = 2;

? print $num,"n";

}

print $num,"n";

输出：

2

1