perl程序中$0 及ARGV手把手使用

#!/usr/bin/perl #記得加上#！
use warnings; #開啟該程序報錯警告功能,指出錯誤位置和原因
use strict;#perl中編譯指令，如果程序不遵守優良的編碼風格(例如每一行perl語句末尾加分號;變量前加my等)則執行失敗
#提取數組ARGV中每個元素

if(@ARGV != 3){#die 當提供的參數不正確時，退出程序，輸出雙引號中的內容
        die "\tNot enough patameters!
\tperl $0 a b c\n";}
print "\$0：$0\n";#$0為當前執行的程序名

my($index,$value);
#輸出每個參數
while(($index,$value) = each @ARGV){
        print "ARGV[$index]:$value\n";};

將以上代碼命名為argv.pl

執行perl  argv.pl a b c

輸出結果：

$0：argv.pl
ARGV[0]:a
ARGV[1]:b
ARGV[2]:c