使用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&nbsp;$s&nbsp;=&nbsp;'';&nbsp;my&nbsp;$d&nbsp;=&nbsp;'';open&nbsp;$H,&nbsp;$file;while&nbsp;(<$H>)&nbsp;{&nbsp;&nbsp;&nbsp;tr/$s/$d/;&nbsp;&nbsp;&nbsp;print;}