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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
#!/usr/bin/perl
#
# Copyright 2004 Mattias Gaertner
#
# Search and replace in multiple files with perl syntax
use vars qw/ %opt /;
use Getopt::Std;
my $opt_string = 'hvcsinbRf:r:m:';
getopts( "$opt_string", \%opt ) or usage();
usage() if $opt{h};
sub usage(){
print STDERR << "EOF";
Replace strings in files with perl search and replace syntax
usage: $0 [-hRvcnbis] -f text -r replacetext -m filemask file1 file2 ...
-h : this (help) message
-f <text> : find text
-r <text> : replace with this text
-R : recursive
-i : case insensitive
-v : verbose
-c : print changes
-s : write summary
-n : simulate, do not change files
-b : replace in binary files too
-m <filemask> : file mask, useful for recursive
examples:
Replace in file1.txt and file2.txt all a with b
$0 -vsn -f 'a' -r 'b' file1.txt file2.txt
Replace in file1.txt all a([0-9]) with b$1
$0 -vsn -f 'a([0-9])' -r 'b$1' file1.txt
EOF
exit;
}
usage() unless $opt{f}; # Text needed
usage() unless $opt{r}; # Replacetext needed
$FindText=$opt{f};
$ReplaceText=$opt{r};
$FileMask=$opt{m};
if($opt{v}){
print "Parameters:";
print "FindText=$FindText\n";
print "ReplaceText=$ReplaceText\n";
print "FileMask=$FileMask\n";
print "\n";
}
$TotalFiles=0;
$ChangedFiles=0;
$TotalLines=0;
$ChangedLines=0;
for $Filename(@ARGV){
DoFile($Filename,1);
}
if($opt{s}){
print "\nSummary:\n";
print "changed files: $ChangedFiles/$TotalFiles\n";
print "changed lines: $ChangedLines/$TotalLines\n";
}
#==============================================================================
sub DoFile(){
(my $Filename,$Level) = @_;
# skip special files
if($Filename eq "."){ return; }
if($Filename eq ".."){ return; }
#print "DoFile $Filename\n";
#
if(-d $Filename){
if($opt{R}){
if($opt{v}){
#print "Entering directory $Filename\n";
}
$Filenames=`ls -1 $Filename`;
for $SubFilename(split("\n",$Filenames)){
DoFile($Filename."/".$SubFilename,$Level+1);
}
if($opt{v}){
#print "Leaving directory $Filename\n";
}
}
return;
}
if ((! $opt{b}) && (-B $Filename)){
if($opt{v} && ($Level==1)){
print "Skipping binary file $Filename\n";
}
return;
}
if(($FileMask) && ($Filename !~ /$FileMask/)){
return;
}
my $FilenamePrinted = 0;
if($opt{v}){
print "Editing $Filename ...\n";
$FilenamePrinted = 1;
}
$TotalFiles++;
open F, "< $Filename" or die "Unable to read file $Filename: $!";
$NewText="";
$LineNumber=1;
$FileChanged=0;
while ($Line=<F>){
$TotalLines++;
$OldLine=$Line;
if($opt{i}){
$Line=~s/$FindText/$ReplaceText/goi;
} else {
$Line=~s/$FindText/$ReplaceText/go;
}
if($OldLine ne $Line){
$ChangedLines++;
$FileChanged=1;
if($opt{v} || $opt{c}){
if (! $FilenamePrinted){
print "Editing $Filename ...\n";
$FilenamePrinted = 1;
}
print "($LineNumber,old):".$OldLine;
print "($LineNumber,new):".$Line;
}
}
$NewText.=$Line;
$LineNumber++;
}
if($FileChanged==1){
$ChangedFiles++;
}
close F;
if(! $opt{n}){
open F, "> $Filename" or die "Unable to write file $Filename: $!";
print F $NewText;
close F;
}
}
# end.
|
