Mercurial > hg > tema

view misc/util/update_headers.pl @ 15:e9d13c7ffeb1

find changesets by author, revision, files, or words in the commit message
Update header comment.
author Mikhail Kryshen <mikhail@kryshen.net>
date Tue, 24 Mar 2009 18:51:47 +0300
parents
children
line source
1 #!/usr/bin/perl
2
3 use File::Find;
4
5 undef $/;
6
7 my $src = "../../src";
8 my $header_file = "header";
9
10 open (FILE, "$header_file");
11 my $header = <FILE>;
12 close(FILE);
13
14 find (\&update_header, $src);
15
16 sub update_header
17 {
18 my $code;
19
20 if ( $File::Find::name !~ /^.*\.java$/ )
21 {
22 return;
23 }
24
25 print $File::Find::name."\n";
26 open(FILE, "$_") or die "error opening file";
27
28 $code = <FILE>;
29 $code =~ s|(^[[:space:]]*/\*.*?\*/[[:space:]]*?\n\|^)|$header|s;
30
31 close(FILE);
32
33 open(FILE, ">$_") or die "error opening file";
34 print FILE $code;
35 close(FILE);
36 }