Perl 脚本命令行传入参数

#!perl -w
# ===============================================================================
# 这一段要放在perl文件的开头部分，不然ARGV使用起来有点问题。
$argc = $#ARGV + 1;
print"Total command line arguments received: $argc \n";
foreach $argument (0 .. $#ARGV) {
    print"$ARGV[$argument]\n";
}
# ===============================================================================