From 388ab8f432ff7e91671a0208863a620469bebcc3 Mon Sep 17 00:00:00 2001 From: lookshe Date: Fri, 9 Mar 2012 01:10:35 +0100 Subject: and again some more wiki fixes... --- wiki2.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/wiki2.pl b/wiki2.pl index 5563c72..b91475a 100644 --- a/wiki2.pl +++ b/wiki2.pl @@ -72,8 +72,10 @@ if (defined $result) { $ln = 0; my $lst = 0; foreach my $line (@newlines) { +#print "$line\n"; $line =~ s///g; - $line=~ s/^.*}}//g; + $line=~ s/^[^}{]*}}//g; + $line=~ s/^{{Infobox.*}}//g; $line=~ s/^[^\[]*\]\]//g; $line=~ s/^\s*//; $line=~ s/\s*$//; @@ -88,6 +90,7 @@ if (defined $result) { $line =~ s/\(\s*\)//g; #$line = strip_tags($line); $line =~ s/]*>[^<]*<\/ref>//g; + $line =~ s/]*\/>//g; $line =~ s/\s+/ /g; $line =~ s/\s([,.\?!])/$1/g; if ($isDis) { -- cgit v1.2.3