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

最新推荐文章于 2021-09-22 14:29:11 发布

weixin_30827565

最新推荐文章于 2021-09-22 14:29:11 发布

阅读量517

点赞数

原文链接：http://www.cnblogs.com/huochangjun/archive/2012/08/30/2664165.html

版权

一.场景描述：

我们在执行脚本的时候，通常会带有参数，需要对参数的个数以及格式等做正确性判断，用一个简单的例子阐述一下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将输入参数作为一个数组，判断个数；如果参数不正确，便会输出提示信息：

转载于:https://www.cnblogs.com/huochangjun/archive/2012/08/30/2664165.html