Perl
紫荆的传说
微电子
展开
-
perl 一句话命令行 替换特殊字符
perl一句话命令行原创 2022-05-10 14:17:58 · 1617 阅读 · 0 评论 -
Perl 匹配后赋值
当我们需要用到一行字符中的某些字符串时,我们需要匹配到想要的字符串,再赋值给变量,以便后续使用。#!/usr/bin/perl&getlef;sub getlef{ if(-e "N7.lef"){ unlink "N7.lef"; } open LIST, "list" or die $!; @list=<LIST>; $count=0; foreach my $cell(@list){ ch原创 2020-12-14 17:14:14 · 1562 阅读 · 1 评论 -
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 · 2130 阅读 · 0 评论 -
Perl 将两个文件中相同行号的行连接成一行
此处提供两种方法实现“将两个文件中相同行号的行连接成一行”,这两种方法也可以细节化的呈现Perl中foreach和while的区别。#!/usr/bin/perlopen LISTA, "listA" or die $!;原创 2020-10-16 14:52:43 · 743 阅读 · 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 · 1711 阅读 · 0 评论