perl $a=~s/>/>/g;什么意思

Answer 1

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

Answer 2

把$a中出现的“&gt;”全部替换为“&amp;gt;”

追问

if ($#ARGV >= 0) {
while ($a=shift(@ARGV)) {
$a=~s/&/&/g;
$a=~s//>/g;
print "$a\n";
}
}
这段程序是什么意思，我完全不懂perl脚本，这是想用这个测试我服务器的cgi功能

Answer 3

就是把html的特殊字符转换成html非特殊字符。例如 &要表示成&

Answer 4

全局替换，将 &gt; 替换成 &amp;gt;