blob: 30404e09d174c529e162e5143a15c1035b3455d9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl -w
use strict;
my $file;
while ($file = shift @ARGV) {
print "Processing $file..\n";
open (IN, $file) || die "Can't open $file: $!";
my $entire_file;
while(<IN>) {
$entire_file = $entire_file . $_;
}
close (IN);
$entire_file =~ s%<GTKDOCLINK([^>]*)>%<font>%gi;
$entire_file =~ s%</GTKDOCLINK([^>]*)>%</font>%gi;
open (OUT, ">$file") || die "Can't open $file: $!";
print OUT $entire_file;
close (OUT);
}
|