紫荆的传说的博客

verilog `define

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

#！/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.