用perl實現的文件頭注釋工具

最近想開源一套軟件，對於一些代碼都要在文件頭上加上固定格式的版本信息。自己用perl寫了一個小工具，拿出來分享。

下載地址：http://files.cnblogs.com/xjon/comments.zip

 

#!/usr/bin/perl -W
#
# Copyright (c) 2014 Nijie. All rights reserved.
# License: GPL-2
#
# File: comments.pl  用於增加c/c++文件注釋
# Create by Nijie 2014.07.23
#

use strict;
use warnings;
use File::Copy;

my $author='Nijie';            # 作者 - 需修改
my $createyear='2014';        # 版權時間 - 需修改
my $date="2014.07.23";        # 文件創建時間 - 需修改

# 以下版權信息 - 需修改
my $comments="// Created by $author on $date.
// Copyright (c) $createyear $author. All rights reserved.
// Use of this source code is governed by a GPL-2 license that can be found in the LICENSE file. 
//
";

my @filterDir = ("./lib3rd/");    # 需要過濾的文件，比如不屬於你開發的目錄等 - 需修改

my %filterList = ();
foreach (@filterDir)
{
    $filterList{$_} = 1;
}

my ($dircnt, $filecnt) = (0, 0);

sub lsr_s($) {
    my $cwd = shift;
    my @dirs = ($cwd.'/');

    my ($dir, $file);
    while ($dir = pop(@dirs)) {
        if (exists($filterList{$dir}))
        {
            print "skip dir : $dir\n";
            next;
        }
        local *DH;
        print "open $dir\n";
        if (!opendir(DH, $dir)) {
            warn "Cannot opendir $dir: $! $^E";
            next;
        }
        foreach (readdir(DH)) {
            if ($_ eq '.' || $_ eq '..') {
                next;
            }
            $file = $dir.$_;         
            if (!-l $file && -d _) {
                $file .= '/';
                push(@dirs, $file);
            }
            process($file, $dir);
        }
        closedir(DH);
    }
}

sub process($) {
    my $file = shift;
    print "process $file";
    if (substr($file, length($file)-1, 1) eq '/') {
        $dircnt++;
    }
    else {
        $filecnt++;
        if ($file =~ /\.(h$|c$|cpp$|hpp$|cc$)/)
        {
            addComments($file);
        }
    }
    print "\n";
}

sub addComments($)
{
    my $line = 0;
    my $file = shift;
    open FILE, $file or die 'die ($!)';
    open OUTFILE, ">$file~~~" or die "Open the file $file~~~ failed!\n";

    print OUTFILE $comments;
    while (<FILE>)
    {
        print OUTFILE $_;
    }
    close FILE;
    close OUTFILE;
    move("$file~~~", $file);
}

lsr_s('.');
print "$filecnt files, $dircnt directory.\n";
`pause`;