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將輸入參數作為一個數組，判斷個數；如果參數不正確，便會輸出提示信息：