Revision f656161abbc14b1a9e7f18a02a854a863411af3b authored by Lou Burnard on 01 December 2011, 18:28:57 UTC, committed by Lou Burnard on 01 December 2011, 18:28:57 UTC
1 parent 4b761f5
cleanrnc.pl
#!/usr/bin/perl
$clean=0;
while (<>) {
if (/<pre/) { $clean=1; print; }
elsif (/<\/pre/) { $clean=0; print; }
elsif (/<eg/) { $clean=1; print; }
elsif (/<\/eg/) { $clean=0; print; }
elsif ($clean eq 0) { print; }
elsif (/namespaces/) { print; }
elsif (/namespace</) { print; }
elsif (/>namespace/){
s/(.*>)namespace.*/$1/;
print;
while (<>) {
if (/</) { print; last; }
elsif (/^namespace /) { }
elsif (/^default namespace /) { }
elsif (/^$/) { }
else {print; }
}
}
else {
s/>namespace local = \"\"/>/;
print; }
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...