找到一个单词并增加单词中的数字＆amp;保存到新文件中

Question

我正在寻找一个perl / awk / sed命令来自动递增文件中的数字行，P1.tcl：

run_build_model sparc_ifu_dec
run_drc
set_faults -model path_delay -atpg_effectiveness -fault_coverage
add_delay_paths P1
set_atpg -abort_limit 1000
run_atpg -ndetects 1000

我想将P1从P2更改为P500并保存到新文件中，例如P2.tcl，P3.tcl .... P500.tcl

我在网上搜索了这个，但找到了替换/生成一个文件的唯一方法。例如P2.tcl

最佳，

Jaeyoung

Answer 1

未测试：

for i in {2..500}; do
    cp P1.tcl P$i.tcl
    sed -i s/P1/P$i/ P$i.tcl
done

Answer 2

对于如此长的循环，

awk不太清楚但速度更快：

awk '{for (n=2; n<=500; n++) {line = gensub(/P1/, "P" n, "g", $0); print line > "P" n ".tcl"}}' P1.tcl

使用gensub将P1替换为"P" n。