为一系列Perl参数转义'$'

Question

我想做相当于:

for (int i = 0; i < 10; i++)
{
   arg[i] = arg[i].Replace("$", @"\$");
}

在Perl.Perl会是什么样子？

Answer 1

for ( @arg ) {
    s/\$/\\\$/g;
}

应该做的伎俩.如果您坚持只使用前10个参数,请将第一行更改为:

for ( @arg[0..9] ) {