zyj0oo0的博客

我们看后仿波形，分析后仿时序为例时，对着茫茫多的log，实在没有精力一行一行的过，最好的办法是用脚本，将时序为例都写到新的文件中，然后我们再将文档中重复的时序为例都去掉，剩下的才是我们真正需要关注的Timing violation，至于为啥要删除重复的，是因为，一般出现时序违例的地方，常常会一直报x态到log里，我们只需要保留最开始的那一个即可。好了，以上都是我们需要解决的问题的前提，这块我只记录如何使用perl删掉文档中所有重复的行，代码如下：for($i = 0 ; $i < $lin

废话不多说，直接上代码：#！/usr/bin/perl -wmy $my_dir = "$ENV{'PWD'}"; ## 获取当前目录，用户可以自定义自己的目录print"********************\n";print"$my_dir\n";print"********************\n";my $path = $my_dir;sub scan_file{ my @files = glob(@_[0]); #### 获取函数的第一个参数 ..

参数输入关于perl脚本的参数输入一共有两个办法：useGetopt::Std 或者 use Getopt::Long (use的用法与import类似，这里就不展开了)对于上面两中方法，采用哪一种目前看来没有特别明显的区别，掌握其中一种，我觉得就可以了，这里做一个关于perl脚本获取参数方法的简单记录。我们来看完整的代码：#！/usr/bin/perluse Getopt::Long;GetOptions( "i=s" =>\$istring0.

废话不多说，直接上代码#! usr/bin/perlus Cwdmy $dir = "."; #当前文件夹，也可以自己通过参数获得my $file ;my $slash = "/";my @dir_child ;my $xfile = "x.log";my $yfile = "y.log";my $zfile = "z.log";opendir (DIR,$dir) or die "Cant open the directory";open (OFILE ,">$