perl 如何编写脚本批量替换文本内的字符串？

open F, "1.txt" or die $!#把以上内容放到1.txt

@array=<F>foreach(@array){if(/T(\d)\dC/ or /T(\d)\d+$/){s/$1/1/} print "$_"}

就你那么写，使用双引号代替单引号就可以了，也就是：

perl

-i

-pe

"s/$oldso/$sonum1/"

$sonum1.*

因为shell里面和perl一样，单引号里面的$不解释，双引号的要解释

---