if ($#ARGV >= 0) { # ---如果参数个数大于等于1
while ($a=shift(@ARGV)) { #---依次把参数赋给$a
$a=~s/&/&/g; #---把$a中的&替换成&（无意义替换）（/g表示全局替换）
$a=~s/</</g; # 也是替换
$a=~s/>/>/g; # 也是替换
print "
}
}
perl $a=~s/>/&gt;/g;什么意思
这段脚本毫无意义。。。
if ($#ARGV >= 0) { # ---如果参数个数大于等于1
while ($a=shift(@ARGV)) { #---依次把参数赋给$a
$a=~s/&/&/g; #---把$a中的&替换成&（无意义替换）（/g表示全局替换）
$a=~s/</</g; # 也是替换
$a=~s/>/>/g; # 也是替换
print "$a\n"; #--按行输出 $a
}
}
if ($#ARGV >= 0) { # ---如果参数个数大于等于1
while ($a=shift(@ARGV)) { #---依次把参数赋给$a
$a=~s/&/&/g; #---把$a中的&替换成&（无意义替换）（/g表示全局替换）
$a=~s/</</g; # 也是替换
$a=~s/>/>/g; # 也是替换
print "
}
}
