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";};