老实说，这个东西有点折腾人，主要是书上的表述很晦涩，其实搞懂不难。

our,”把名字限于某个范围“，其实就是明确声明一个”全局变量”，虽然是在某个模块或者函数里面定义的，外面的也可以访问，如果已经声明过了，再次用”our”,表示此处用的是全局的那个，不是同名的私有或者局部变量

our $PROGRAM_NAME = “waiter”;
{

my $PROGRAM_NAME = “something”;
our $PROGRAM_NAME = “server”; #这里的our和外面的相同，和前句不同。
# 这里调用的代码看到的是”server”
}
# 这里执行的代码看到的仍然是”server”.

my ,”把名字和值都限于限于某个范围”,简单说，就是只能本层模块或者函数可以看到这个变量，高一层的或者低一层的都看不到的。
sub greeting1{
my ($hello) = “How are you do?”;
greeting2();
}

sub greeting2{
print “$hello\n”;
}
$hello = “How are you doing?”;
greeting2();
greeting1();
greeting2();

运行结果：
How are you doing?
How are you doing?
How are you doing?
————————–
一个 How are you do? 都没有,在greeting1中call greeting2时，greeting2看不到greeting1的私有 $hello变量，只能看到外面的全局变量$hello

local,”把值局限于某个范围”，也有叫”动态词法范围”,有点不好懂。我的理解，就是本层和本层下层的函数可以看到本层的变量，但是本层上一层的不可以。到底范围是多少，不仅取决于本层的函数，还要看下一层的程序长度和深度，所以叫”动态范围”。

sub greeting1{
local ($hello) = “How are you do?”;
greeting2();
}

sub greeting2{
print “$hello\n”;
}
$hello = “How are you doing?”;
greeting2();
greeting1();
greeting2();

运行结果：
How are you doing?
How are you do?
How are you doing?
———————–
跟用 my 时不一样了吧? 此时在greeting1调用greeting2时，greeting2可以看到greeting1的局部变量$hello,外部的全局变量当然就隐藏了。

原文地址：http://blog.chinaunix.net/u1/51156/showart_441696.html

取自PerlChina
跳转到:导航,搜索
原 名：Use Strict And Warnings
中 文: 如何使用 strict 和 warnings
作 者：runiq
原 文地址已经无效
发 表：Sep 07, 2001
翻 译：havel.zhang
审 校：qiang
出 处：中国 Perl 协会 FPC – PerlChina.org
提醒您：请保护作者的著作权,维护作者劳动的结晶。

目录
1 什么场合要用 use strict
2 为什么要用 use strict？
3 用 use strict 麻烦吗？
4 不错，那我怎么用 use strict 呢？
5 得，程序出错了，我该怎么办？
6 这也太麻烦了吧。懒惰不是 Perl 文化中的美德吗？
7 那 warnings 又是什么？

什么场合要用 use strict
当你的程序有一定的行数时，尤其是在一页放不下时，或者是你找不到发生错误的原因时。

为什么要用 use strict？
众多的原因之一是帮你寻找因为错误拼写造成的错误。比如错误使用了’$recieve_date’ 变量，但实际上你在程序中已声明的是 ‘$receive_date’ 变量，这个错误就很难发现。同样，use strict 迫使你把变量的范围缩到最小，使你不必担心同名变量在程序的其它部份发生不良作用。（尽管这是 my 的功能，但是如果你使用 use strict 的话，它会强迫你用 my 声明变量，来达到上述目的）。

用 use strict 麻烦吗？
不麻烦，只要在你的脚本的开始加上11个字符而已！(use strict;), 另外在整个程序中用my 声明变量。

不错，那我怎么用 use strict 呢？
在你的脚本的开头 ‘#!/usr/local/bin/perl’ 后面加上这句就行。

use strict;

得，程序出错了，我该怎么办？
常见的错误信息一般如下：

Global symbol “$xxx” requires explicit package name at ./tst line 5.这就是需要我们马上去解决的错误。（如果出现类似于 ‘Server Error’ 之类的错误，请检查一下你的 web 服务器上的 error logs， 或用CGI::Carp包。 ）

任何时候，当你要声明一个变量时，都要把 ‘my’ 放在前面。例如：

# 把这段代码:
$string = “hello world”;
@array = qw(ABC DEF);
%hash = (A=>1, B=>2);

# 改成:
my $string = “hello world”;
my @array = qw(ABC DEF);
my %hash = (A=>1, B=>2);

# 把这段代码:
# ‘$name’ is global here
foreach $name (@names) {
print “Name: $name\n”;
}

# 改成:
foreach my $name (@names) {
# Now ‘$name’ only exists in this block
print “Name: $name\n”;
}

# 把这段代码:
# 同样, ‘$digit’ 在这里是全局变量
foreach $digit (@digits) {
$number = 10== $number + $digit;
}
print “Number: $number\n”;

# 改成： (外层的变量(‘$number’)
# 将在外层声明):
my $number = 0;
foreach my $digit (@digits)
# 现在’$digit’ 仅仅在这个代码块里存在
$number = 10== $number + $digit;
}
print “Number: $number\n”;

# 把这段代码:
sub my_sub {
($arg1, $arg2) = @_;
print “Arg1: $arg1 Arg2: $arg2\n”;
}

# 改成:
sub my_sub {
my ($arg1, $arg2) = @_;
print “Arg1: $arg1 Arg2: $arg2\n”;
}

# 下面的代码好像在用 DBI 嘛？一样要改！:
$sth->bind_columns(\$field1, \$field2);
while ($sth->fetch) {
print “F1: $field1 F2: $field2\n”;
}

# 改成:
$sth->bind_columns(\my ($field1, $field2));
while ($sth->fetch) {
print “F1: $field1 F2: $field2\n”;
}

这也太麻烦了吧。懒惰不是 Perl 文化中的美德吗？
当然，懒惰是我们的美德。因为你会发现使用 use strict 之后，我们就不必花太多的时间自己去查找 use strict 可以找到的很多简单错误。

那 warnings 又是什么？
哦，对了。在 Perl 5.6 及以后的版本里，我们可以在写 ‘use strict;’ 的位置旁写 ‘use warnings;’:

use warnings;在 Perl 5.6 版之前（或者为了不同 Perl 版本间的兼容 ），你可以用命令行参数 ‘#!/usr/bin/perl -w’。还有一种办法是设置
$^W变量（不过，如果
$^W不在BEGIN{}程序块里的话，就没办法截取编译时的错误提示，所以一般我们用 ‘-w’）:
#!/usr/local/bin/perl -w

# 或者
$^W = 1;
# 或者
BEGIN { $^W = 1 }如果你确定不用 warnings，你可以限制它的使用范围，如：

# 把这段代码:
sub add_two_numbers_which_might_be_undef {
$_[0] + $_[1];
}

# 根据Perl 的版本不同改成下面的样子:
# 1
sub add_two_numbers_which_might_be_undef {
# 参见 ‘perldoc perllexwarn’
# 因为最好是只在你希望的地方禁止掉warning
no warnings “uninitialized”;
$_[0] + $_[1];
}

# 2
sub add_two_numbers_which_might_be_undef {
local $^W;
$_[0] + $_[1];
}

或者，你应像前面例子中声明 ‘$number’一样初始化变量。