请问这种格式转换怎么用命令来实现

muye1234

.SUBCKT ADDFHX1 A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFHX2 A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFHX4 A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFHXL A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFX1 A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFX2 A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFX4 A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDFXL A  B  CI  CO  S  VDD  VSS
.SUBCKT ADDHX1 A  B  CO  S  VDD  VSS
.SUBCKT ADDHX2 A  B  CO  S  VDD  VSS
.SUBCKT ADDHX4 A  B  CO  S  VDD  VSS
.SUBCKT ADDHXL A  B  CO  S  VDD  VSS
....
在每一行的下面插入.ENDS ADDFHX1.并且每个都要与之对应，形成这样的格式

A1985

perl -lne '                                                                                
print $_. "\n" . ".ENDS $1"  if /SUBCKT\s*(\w+)\s*.*/ ;
'  netlist_file > newfile

muye1234

A1985 发表于 2021-1-8 15:03
perl -lne '                                                                                
print $_ ...

可以了，谢谢大佬！

891680996

插入.ends

891680996

891680996 发表于 2021-1-8 22:29
插入.ends

插入.ends就行了，后面的内容没用