数字电路
紫荆的传说
微电子
展开
-
Perl 原格式输出 print OUT << “EOF“
Perl 大骆驼书的“此处”文档一节对原格式输出有详细介绍。如果我们想输出一大段的内容,我们就可以用原格式输出的语法来实现。#!/usr/bin/perlopen OUT, ">AO21.vec" or die $!;$A1=0;$A2=0;$B1=0;$count=0;@value=qw(0 1);print OUT << "END";radix 1 1 1 1vname A1 A2 B原创 2020-10-29 18:14:49 · 1963 阅读 · 0 评论 -
Perl 输出匹配到的某两行之间的内容
#!/usr/bin/perlopen CDL, "simple.cdl" or die $!;open OUT, ">output.cdl" or die $!;while ($lines=<CDL>){if($lines=~/SUBCKT.*DFF/){$line_control=1;}elsif($lines=~/ENDS/ and $line_control==1){$line_control=0;print OUT $lines;}if($line_con.原创 2020-09-28 11:38:25 · 1602 阅读 · 0 评论