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

最新推荐文章于 2025-05-16 11:24:22 发布

原创最新推荐文章于 2025-05-16 11:24:22 发布 · 2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#perl #wildcard #comments #file #io

Perl 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个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