默认情况下,PERL中所有的变量都是全局变量,也就是说在程序中的任何地方都可以访问他们,但是你也可以随时用一个操作符来创建私有的词法变量,即my
sub max
{
my($m,$n)=@_;
if($m>$n)
print $m;
else
print $n;
}
使用my操作符限定过的变量,其作用域只在其所在的代码块中有效,不被其他代码访问,另外,PERL中允许最后一个语句块省略分号,但是,还是别用了,不能很好地养成好的
编码习惯
更好的方式是在使用参数之前,进行参数的检测,比如,看下是否传递进来的是两个参数
sub max
{
if(@_!=2){
print "warn the param is not propley";#有一点要注意的是,在if语句之后最好加上花括号,作为代码块的起始和结束标记,这样不怎么容易出问题
}
my($m,$n)=@_;
if(@_[0]>$n)
{
print $m;
}
else
{
print $n;
}
}
&max(3,4);
当然最好的情况是程序能够自行处理可变参数的参数列表,代码如下:
sub max
{
#首先获得参数列表中的第一个值,作为其实最大值
my $max_so_far=shift @_;
foreach(@_)
{
#未使用指定遍历列表的控制变量时,自动使用默认变量,$_
if($max_so_far<$_)
{
$max_so_far=$_;
}
}
print $max_so_far;
}
&max(3,4,4,5);
如果使用该函数的人将空列表传入程序,作为参数列表,我也没有关系,这样的话,$max_so_far是undef,而foreach循环则根本不执行
现在说下词法变量my,即类似于C中的作用域限定符,
书中说my操作符当不是用小括号时,只是声明了一个变量,
my $fred=1,$h=3;这样的话$h是可以使用的,不知道怎么理解,暂时不作处理
PERL中所有新的变量,标量的初始值是undef,列表的初始值是空列表