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

irene_cn

   

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

                               
登录/注册后可看大图

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

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

ksj116

回复 11# irene_cn


    刚学就能用成这样，膜拜阿。我之前也都看过这样脚本教程，就不知道介个。惭愧。

天朝浪子

#! /usr/bin/perl -w

my $file="log";
my $outfile="new";
my @content;
open FH,"<$file"or die "Cannot open $file !\n";
while(<FH>){
  chomp;
  if(/^\.subckt/){
    push (@arry,$_ . " VDD VSS\n");
  } elsif (/^m.*w=(.*)/){
    push (@arry,$_ . "fw=$1 \n");
  } else {
    push (@arry,$_."\n");
  }
}
close FH;
open FH,">$outfile" or die "Cannot open $outfile!\n";
print FH @arry;
close FH;

5caicai

楼主是为了导入网表生成原理图吗，我导入之后遇到的问题是，Q管子的尺寸正确，但是管子的显示尺寸为最小尺寸，并且用原理图导出的网表尺寸也是错误的，请问如何解决啊？感谢！

时间到了

谢谢分享

今天下大雨

666666

郫县技工

clc
clear all
close all
%读并修改文本
fid=fopen('文件路径及名称','r+');
i=0;
while ~feof(fid)
    i=i+1;
    strtmp=fgetl(fid);    %临时变量
    x=strfind(strtmp,'w=');
    if isempty(x)         %若不存在w参数则本行不做处理
        content{i}=strtmp;
        continue;
    else
        y=length(strtmp);
        para=strtmp(x+2:y);
        content{i}=[strtmp ' Wfg=' para];   %添加Wfg参数
    end
end
fclose(fid);
%写文本
fid=fopen('文件路径及名称（可重建一个文件）','w+');
for j=1:i
    fprintf(fid,'%s\r\n',content{j});
end
fclose(fid)；


我前两天也遇到这个问题，自己用matlab弄了一下

郫县技工

   

5caicai 发表于 2019-8-19 09:33
楼主是为了导入网表生成原理图吗，我导入之后遇到的问题是，Q管子的尺寸正确，但是管子的显示尺寸为最小尺 ...

看起来像callback没有激活

库小里orz

顶一下~

aimu_wl

谢谢收藏