修改C/C++的單行註釋（//）爲多行註釋（/**/）的Perl代碼

use strict; use warnings; use IO::File; sub ransack { #參數:dir,/@files,wildcard my $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