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