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
|
#!/usr/bin/perl -w
$filename = shift @ARGV;
#print "$filename\n";
$mod = 0;
$alltext = "";
open (IN, "$filename") || die "Cannot read from $filename";
while (<IN>) {
if(/EFUNC[^R]/) {
$mod++;
s/EFUNC([^R])/EFUNCREL$1/g;
}
if(/EDATA[^R]/) {
$mod++;
s/EDATA([^R])/EDATAREL$1/g;
}
$alltext .= $_;
}
close IN;
if($mod) {
open (OUT, ">$filename") || die "Cannot write to $filename";
print OUT $alltext;
close OUT;
print "$mod lines changed: $filename\n";
}
exit();
|
