用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 */
代码虽然挺简单的，不过当做日常工具来使用还是不错的。就先这样。
页:
[1]