模式基础（5）：Perl的strict用法

haobang008

在学习Perl之初的时候发现一个问题就是Perl的检查机制比较粗略，换句话来说就是Perl的语法不是十分的严格，但是采用了下面的语句之后，可以令语法的格式更加严格（相应的也会报错比较多），use strict 如何基本的使用strict，以下面的例子进行分析：

#!/usr/bin/perl
use strict;

sub list_from_fred_to_barney{
        if$fred$barney){
                $fred..$barney;
        }else{
                reverse($barney..$fred);
        }
}
$fred=11;
$barney=6;
@c=&list_from_fred_to_barney;
print @c;
print "\n";

如果运行这个程序会出现很多这个问题：
Global symbol "$barney" requires explicit package name at ./ex4 line 5.
具体的修改如下，加上our的限定词


#!/usr/bin/perl
use strict;

sub list_from_fred_to_barney{
        if(our $fred<our $barney){
                $fred..$barney;
        }else{
                reverse($barney..$fred);
        }
}
our $fred;
$fred=11;
our $barney=6;
our @c=&list_from_fred_to_barney;
print @c;
print "\n";



具体参照的说明是来自下面的连接：http://www.kuqin.com/article/25perl/556778.html
而后，下面的这个链接说的也不错，但是似乎没有把strict一些用法点透。
源地址：http://blog.itpub.net/13175437/viewspace-207604/