Perl脚本学习经验（一）------如何判断执行脚本时的输入参数是否正确

忧郁者

　　一.场景描述：
　　我们在执行脚本的时候，通常会带有参数，需要对参数的个数以及格式等做正确性判断，用一个简单的例子阐述一下perl脚本中怎么判断输入参数的合法性。
　　二.简单例子：
　　sub check_parameter()
{
    if ((@ARGV != 1) or ($ARGV[0] =~ /\D+/))    ----如果参数个数不为1或者参数不是数字
    {
        my $cmd_name = basename($0);              ----获取当前执行文件的名称        
        print("USEAGE:\n");
        print("    $cmd_name  Please enter the year! \n");
        exit;
    }   
}
　　三.简单分析：
　　以上脚本执行时，需要输入一个数字参数，@ARGV将输入参数作为一个数组，判断个数；如果参数不正确，便会输出提示信息：