[D]利用perl进行文本替换

[wu0792]

我想把某个目录下面的所有文件中前面的注释行删除掉，例如

/*
File Generated by NetTiers templates [www.nettiers.com]
Generated on : 2012年4月10日星期二
Important: Do not modify this file. Edit the file OracleDocPaperDocEquipProvider.cs instead.
*/

#region using directives
...

希望#region前面的内容删除，我试着写了代码，可发现文本被清空了，下面是我的代码

$dir='d:/g/r'; #查询的目录范围
opendir DIR,$dir or die "$!";

while($name = readdir DIR){
open FILE,">".$dir."\\".$name;
$lines = join '',<FILE>;

$lines =~ s/\/\*.*\*\///gs;
select FILE;
print $lines;

close FILE;
}

closedir DIR;
希望大家帮我看看，谢了！
--------
Double行动：
原帖分数：20
加分：20

[jiuchang]

不要用贪婪匹配
$lines =~ s/\/\*.*?\*\///gs;

[I_NBFA]

open FILE,">".$dir."\\".$name;
你是写文件，根本没读出来东西。

[proorck6]

看不懂，帮顶，不过Perl的调试技巧也很重要。

[song84217]

2楼正解
open FILE,">".$dir."\\".$name;
$lines = join '',<FILE>;
这里没有读出文件的内容。

应改成
open FILE,"<".$dir."\\".$name;

写入的时候要重新打开一个写的文件句柄
open FILE,">".$dir."\\".$name;

[nucgpeak]

\/\*(.*\n)*?\*\/

perl中支持多行匹配，用上面这个正则表达式试一下

[Crafter]

暂且认为读写文件都正确，你需要的操作可能如下，我已经添加了注释，供参考，希望有用：

my $filecontent;
# read the file content to $filecontent
if ( $filecontent =~ s{
	/
	#the start /*
	.*		#the characters in the comment
	
/	#the end */
	\s*     #the spaces between the comment and the next statement
	}{}sx
)  #x ignore the comments and spaces in the pattern, s make . includes newline
{
	print "\n-------------------------\n";
	print $filecontent;
	print "\n-------------------------\n";
}
#output $filecontent to the file

[Crafter]

1楼说得对哈；不能用贪婪匹配；重新写过：

if ( $filecontent =~ s{
	/
	#the start /*
	.*?		#the characters in the comment, 
here must used non-greedy quantifiers ?
	
/	#the end */
	\s*     #the spaces between the comment and the next statement
	}{}sx
)  #x ignore the comments and spaces in the pattern, s make . includes newline
{
	print "\n-------------------------\n";
	print $filecontent;
	print "\n-------------------------\n";
}