如何用perl 改写cdl文件内容？（已解决，感谢二楼大神）

irene_cn

#!/usr/bin/perl

use strict;

open (FH, "> test_out") or die "Can't open output file!";

while (<>) {
  if (/^\.subckt/) {
    chomp;
    $_ .= " VDD VSS";
    print FH "$_\n";
   }
   elsif (/^m.*w=(\S+)/) {
     chomp;
     $_ .= " fw=$1";
     print FH "$_\n";
   }
   else {
     print FH $_;
   }
}

irene_cn

#!/usr/bin/perl

use strict;

open (FH, "> test_out") or die "Can't open output file!";

while (<>) {
  if (/^\.subckt/) {
    chomp;
    $_ .= " VDD VSS";
    print FH "$_\n";
   }
   elsif (/^m.*w=(\S+)/) {
     chomp;
     $_ .= " fw=$1";
     print FH "$_\n";
   }
   else {
     print FH $_;
   }
}

irene_cn

   

2楼大神，最后一个打印print还应该和上次处理一样要 print FH "$_/n"; 吧。要不厌就不换行输出了吧。
ksj116 发表于 2014-11-26 19:37

                               
登录/注册后可看大图

    惭愧，学了没几天的perl，千万别叫我大神。

    最后一行不需要加回车符，之前的加回车符是因为调用chomp。把回车符给去掉了，而在最后这个分支里，没有调用过chomp, $_变量里本身带了回车了。