我的帖子为什么被删除了?

QUOTE:

我有一个文件test, 内容如下:
====
$title
MCO,Onh
$symmetry c1
$coord    file=coord   data
$scfintunit
unit=30       size=0       file=twoint
$scfiterlimit   300
$forceapprox    file=forceapprox  fdsal
$interconversion  off
   qconv=1.d-10
   maxiter=25
$coordinateupdate
....
====

想把这里面的某行下面添加一会注释以及file=xxx 字符串后面添加一个后缀, 比如'.dat'

我写了个脚本superadd.pl 如下:

#!/usr/bin/perl
$^I=".bak";
#$supperadd = 'file'
while (<>){
if(/\$coord  /){

$_ .= "\$kollman\n";
}
if (/file=/){
$_ .= ".dat";

}

print;
}


但是,'.dat' 后缀总是添加在下一行.

尝试用
s/file=coord/file=coord.dat/;
s/file=twoint/file=twoint.dat/;
方式解决,但无奈这个记事本中的file=太多, 也不固定(有的文件中有30项,有的有40项,名称也不一样).

那位高手我用什么方式在后面追加后缀?

另外, 我想通过命令行方式把要添加的后缀加上, 比如:
perl superadd.pl <.dat> test
的方式输入后, 自动把test文件里面的内容修改为:
====
$title
MCO,Onh
$symmetry c1
$coord    file=coord.dat   data
$scfintunit
unit=30       size=0        file=twoint.dat
$scfiterlimit   300
$forceapprox    file=forceapprox.dat fdsal
$interconversion  off
   qconv=1.d-10
   maxiter=25
$coordinateupdate
....
====

怎么修改?

多谢!!

1. #!/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my($suffix, $file) = @ARGV;
   
6. 
   
7. open my $fh, '<', $file or die $!;
   
8. 
   
9. while (<$fh>) {
   
10.     s/\b(file=\S+)/$1$suffix/; #用替换，如果一行可能有多个 file= 要加上 /g 修饰符
    
11.     print;
    
12. }