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将输入参数作为一个数组，判断个数；如果参数不正确，便会输出提示信息：