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

由于公司的代码规范规定，严禁使用行注释代码。但项目写了一半有很多行注释的地方，一个个改起来未免太麻烦了些，所以写了一个比较‘简易’的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 */

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

代码虽然挺简单的，不过当做日常工具来使用还是不错的。就先这样。