用perl脚本实现一个简单的行注释到块注释的转换

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

由于公司的代码规范规定，严禁使用行注释代码。但项目写了一半有很多行注释的地方，一个个改起来未免太麻烦了些，所以写了一个比较‘简易’的perl脚本来实现批量的修改。

由于没有系统的学习过perl，用起来就比较随意了一些。

代码仅仅只有20多行，也只是对常见的双引号和单引号的特殊情况做了判断。

#! /usr/bin/perl
use strict;
use Tie::File;

my $argc = @ARGV;
my $cnt = 0;

while ($cnt < $argc) {
	tie my @file, 'Tie::File', $ARGV[$cnt++];
	for (@file) {
	　　my $fileLine = $_;
	　　my $flag = 0;
	　　$fileLine =~ s/\".*\"//g;
	　　$fileLine =~ s/\'.*\'//g;
	　　if ($fileLine =~ /\/\/+(.*)/)
	　　{
	　　	my $note = $1;
	　　	if ($note =~ /^ /)
	　　	{
	　　	    $_ =~ s/\/\/+$note/\/\*$note \*\//;
	　　	}
	　　	else
	　　	{
	　　	    $_ =~ s/\/\/+$note/\/\* $note \*\//;
	　　	}
	　　}
	}
}

Tie::File的作用是对记录型文件进行原地修改。

测试了下列的情况：

1. // a

2. /// a

3. //a

4. "//a" //a

5. '''a// a' // a

转换以后变成了

1. /* a */

2. /* a */

3. /* a */

4. "//a" /* a */