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

lik0604 · 发表于 2012-6-1 22:36:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

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

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

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

lik0604 · 发表于 2012-6-1 22:37:36

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

lik0604 · 发表于 2012-6-1 22:41:01

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

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

gwj221 · 发表于 2012-6-1 23:12:45

好东西

yzt000000 · 发表于 2012-6-3 20:46:33

呵呵我是这样搞的

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);
}