Question

如何用perl语言删除文件中以//开头的注释行?

.v文件中的“//”开头的注释行

Answer 1

1楼的答案是对的，可能你看不懂。
1楼是高手，我就写个 简单易懂的给你；
在写perl之前，如果你用的linux，我想给你写个sed语句，一句话解决你的问题
sed -i ‘s/^\/\/.*//’ .v
########希望你从此喜欢上sed awk； 和perl一样懒人必备###########

open FH,"XX.V";
open FF,">XX.out"
while(<FH>)
{
if($_=~~/^\/\//)
{
next;
}
else
{
print FF $_;
}
}
#############
新文件为XX.out 去掉了注释行

Answer 2

#! /usr/bin/perl -w
use strict;
@ARGV = qw/ test.txt /;  #这里保存要修改的文件,与脚本放在同一个目录下
$^I = ".bak";

while(<>)
{
        s/^\/\/.*\n$//g;
        print;
}

#======运行后会产生原文件的一个备份文件.bak=========

http://bbs.chinaunix.net/thread-3600124-1-1.html

Answer 3

my $dir = "./"; # 改成你那堆的文档目录
opendir D, $dir or die "Can't open dir";
while ( my $f = readdir (D) ) {
    next unless $f =~ /\.v$/i;
    rename $f, "$f.bak";
    open OLD, "$f.bak";
    open NEW, ">$f";
    while ( <OLD> ) {
        print NEW $_ unless $_ =~ /^\s+\/{2}/;
    }
    close NEW;
    close OLD;
    # unlink "$f.bak" ; # 如不需留备份, 可以 uncomment 这行
}
closedir D;

还没实测, 试试看啊~!