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

yiwai

　　由于公司的代码规范规定，严禁使用行注释代码。但项目写了一半有很多行注释的地方，一个个改起来未免太麻烦了些，所以写了一个比较‘简易’的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 */
　　代码虽然挺简单的，不过当做日常工具来使用还是不错的。就先这样。