修改C/C++的单行注释（//）为多行注释（/**/）的Perl代码

use strict;use warnings;use IO::File;sub ransack{#参数:dir,/@files,wildcardmy$dir=shift;my$files=shift;my$wildcard=shift;my@array=glob("$dir//$wildcard");foreach my $item (@array){if(-d $item){ransack($item,$files);}else{$files->[@$files]=$item;}}}sub changeComments{my $fileName=shift;my $f=new IO::File("< $fileName");if (!$f){print("Error: Can not open file $fileName, $!/n");return -1;}my $stmt;my $line;while($line=<$f>){if($line=~s/^////////*/){chomp $line;$line.="*//n";}elsif($line=~/^/s*/////){$line=~s/////////*/;chomp $line;$line.="*//n";}$stmt.=$line;}$f=new IO::File("> $fileName");$f->print($stmt);return 0;}sub main{my $dir=shift;my @wcs=@_;my @array;my $wildcard;foreach $wildcard (@wcs){@array=();ransack($dir,/@array,$wildcard);foreach my $fileName (@array){print("change the comments : $fileName/n");changeComments($fileName);}}return 0;}main(@ARGV);  

E:/MyDocs/debug/perl>perl cc.pl .. debug.c debug.cpp
change the comments : ../debug.c
change the comments : ../debug.cpp

 

E:/MyDocs/debug/perl>perl cc.pl .. *.c debug.cpp
change the comments : ../debug.c
change the comments : ../test.c
change the comments : ../debug.cpp