1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#!/usr/bin/perl -w
#
# This perl script replaces a list of tokens
# on a token basis. Here it is allowed for file_in and
# file_out to be the same file.
use strict;
my $g_use_msg =
"Use: token-replace-list.pl token_file file_in file_out [print_file_name ignore_files_file]\n";
if( scalar(@ARGV) < 3 ) {
print STDERR $g_use_msg;
exit(-1);
}
my $token_file = shift;
my $file_in_name = shift;
my $file_out_name = shift;
my $print_file_name = shift;
my $ignore_files_file = shift;
if (0) {
print "token_file=$token_file\n";
print "file_in_name=$file_in_name\n";
print "file_out_name=$file_out_name\n";
print "print_file_name=$print_file_name\n";
print "ignore_files_file=$ignore_files_file\n";
}
open TOKEN_NAMES_FILE, "<$token_file" || die "The file $token_file could not be opened!";
my @token_names = <TOKEN_NAMES_FILE>;
#print "ignore_files_file=$ignore_files_file\n";
my $matches_ignore_file = 0;
if ($ignore_files_file) {
open IGNORE_FILES_FILE, "<$ignore_files_file" || die "The file $ignore_files_file could not be opened!";
my @ignore_files = <IGNORE_FILES_FILE>;
#print "file_in_name='$file_in_name'\n";
foreach(@ignore_files) {
my $ignore_file = $_;
chomp($ignore_file);
#print "ignore_file='$ignore_file'\n";
if ($file_in_name=~/$ignore_file/) {
print "Skipping $file_in_name: matches the ignored file $ignore_file!\n";
exit;
}
}
}
#print "file_in_name = $file_in_name\n";
if($file_in_name=~/CVS/) {
# print "Do not replace in CVS\n";
exit;
}
open FILE_IN, "<$file_in_name";
my @file_in_array = <FILE_IN>;
close FILE_IN;
#print $match_str . "\n";
my @file_out_array;
my $did_replacement = 0;
my $printed_file_name = 0;
foreach(@file_in_array) {
my $line = $_;
foreach(@token_names) {
my ($find_token, $replace_token) = split(" ",$_);
my $match_str = '([^a-zA-Z_]|^)' . $find_token . '([^a-zA-Z0-9_]|$)';
$did_replacement = 1 if $line=~s/$match_str/$1$replace_token$2/g;
if ( $did_replacement && $print_file_name && !$printed_file_name ) {
print "Did token replacement in file : $file_in_name\n";
$printed_file_name = 1;
}
}
push @file_out_array, $line;
}
if($did_replacement || $file_out_name ne $file_in_name) {
open FILE_OUT, ">$file_out_name" || die "The file $file_out_name could not be opended for output\n";
print FILE_OUT @file_out_array;
close FILE_OUT;
}
|
