recur.pl

为源码添加头部信息

#! d:\p\dev\perl\bin\perl -w
use strict;

my $folder;
my $file;

($folder) = @ARGV;
if(!defined($folder)){
    $folder = <STDIN>;
    chomp $folder;
}
print "Opening $folder";
opendir DIR, $folder || die "Cant open dir $folder";
print "Opened! $folder";
while($_ = readdir(DIR)){
    $_ = $folder.'/'.$_;
    #要处理的文件类型，如想处理.c文件，修改regexp就可以
    if(m/\.h$/ && -f){
	print "--------------------------------Processing.... $_\n";
	system("perl", "headguard.pl", $_);
	system("perl", "headgen.pl", $_);
        print "--------------------------------Processed!     $_\n";
    }
}

closedir DIR;

print "Processed!  $folder";