使用perl替换字符串操作时，该怎么用变量代替字符串？

Question

我想替换文件中的字符，目前只能用perl -i -pe 's/1000144199/1000144206/' 1000144206.*但是我希望这样用：perl -i -pe 's/$oldso/$sonum1/' $sonum1.* ，其中oldso和sonum都是变量，由上面的程序赋值。请问怎么操作，在shell环境下！谢谢

Answer 1

就你那么写，使用双引号代替单引号就可以了，也就是：
perl -i -pe "s/$oldso/$sonum1/" $sonum1.*
因为shell里面和perl一样，单引号里面的$不解释，双引号的要解释

Answer 2

my $s = ''; my $d = '';open $H, $file;while (<$H>) {   tr/$s/$d/;   print;}