PERL中的私有变量

   默认情况下，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，列表的初始值是空列表