删除verilog文件中注释的pell脚本(2nd edition)

lik0604

此版是第一个版本的改进，主要体现在能够删除"/*"及同一行后面的注释，
且保留同一行"/*"之前的verilog语句；和能够删除"*/"及同一行前面的注释，
且保留同一行"*/"后面的verilog语句。

     脚本具体功能的话，还是在解压后把${DECOMPRESS}/delete_verilog_comments
设置成当前路径，运行delete_cmts.pl文件。然后对比src(未删除注释)和temp(注释已删)
这两个文件夹的区别。

     我在此抛砖了，若发现脚本有错误，欢迎指正。Email: lik0604@163.com

lik0604

童鞋们，今天过得还开心吧。

lik0604

delete_verilog_comments.zip (1.97 KB , 下载次数: 127 )

2012-6-1 22:40 上传

点击文件名下载附件

刚才不晓得怎么回事，附件没传起来。
现在补上。

gwj221

好东西

yzt000000

呵呵 我是这样搞的

foreach $handl_file(@ARGV) {
open(MYFILE,"$handl_file") || die "opening file: $!";
print $handl_file;
$/ = undef;
$lines = join '', <MYFILE>;
close(MYFILE);
$lines =~ s/\/\*.*?\*\///gms;
$lines =~ s/(.+)\/\/.*\n/$1\n/g;
$lines =~ s/(\/\/.*)\n//g;
print $lines;
open(MYFILE_O,">$handl_file") || die "opening file: $!";
print $handl_file;
print MYFILE_O $lines;

close (MYFILE_O);
}

lik0604

5楼写得简洁一些

lik0604

回复 5# yzt000000


    你的写法更简洁些，佩服！

anonymous_es

分享很好，回复的方法很精彩，
谢谢楼主和楼上的楼上的...

huanghx

都是大神啊

luckyqian

厉害，学习一下