diff options
Diffstat (limited to 'scripts/remove-gtkdoclink.pl')
-rwxr-xr-x | scripts/remove-gtkdoclink.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/scripts/remove-gtkdoclink.pl b/scripts/remove-gtkdoclink.pl new file mode 100755 index 00000000..84ab625c --- /dev/null +++ b/scripts/remove-gtkdoclink.pl @@ -0,0 +1,20 @@ +#!/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\s+HREF="([^"]*)"\s*>(.*?)</GTKDOCLINK\s*>% "<font>$2</font>" %ge; + + open (OUT, ">$file") || die "Can't open $file: $!"; + print OUT $entire_file; + close (OUT); +} + |