如何去除c++文件中的注释

xiaohangyu

UID: 1663
帖子: 64
积分: 147
在线时间: 5 小时

11^# xiaohangyu 发表于 2008-08-15 14:33

忘记考虑这种情况了，revise一下

while(<>
{
$file .=$_;
}
print $file;
$file=~s{((//.*))|(/\*(\w|\s)*?\*/$)}{}mg;
print "new file is \n";
print $file;

xiaohangyu

UID: 1663
帖子: 64
积分: 147
在线时间: 5 小时

12^# xiaohangyu 发表于 2008-08-15 14:36

不是单行处理，有些注释是跨行的，所以。。。

yjh777

UID: 1700
帖子: 1
积分: 2
在线时间: 10 分钟

13^# yjh777 发表于 2008-08-16 18:34

正则方式，建议看 <<Mastering.Regular.Expressions>>

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

14^# redicaps 发表于 2008-08-17 22:48

可以多行处理
版上讨论过很多次的范围操作符 ..

#!/usr/bin/perl -w
use strict;
open(FH,"test.txt");
while(<FH>){
next if /^\s*\/\//;
/\/\*/../\*\// and next;
print $_;
}

yjh777

UID: 1700
帖子: 1
积分: 2
在线时间: 10 分钟

15^# yjh777 发表于 2008-08-31 00:23

<<Mastering.Regular.Expressions.3rd>> chapter 6.7~6.8
([^"'/]+|"[^\\"]*(?:\\.[^\\"]*)*"[^"'/]*|'[^'\\]*(?:\\.[^'\\]*)*'[^"'/]*)|/\*[^*]*\*+(?:[^/*][^*]*\*+)*/|//[^\n]*

强烈推荐 <<Mastering.Regular.Expressions>> 真的是一本非常好的书