Parsing fix

This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-11 12:25:49 +04:00
parent 87dca0e2c1
commit 8be1c614f1

View File

@ -209,10 +209,10 @@ sub pre {
$pre = 0;
}
$txt .= $line;
$txt =~ s/<br \/>//g;
# $txt =~ s/<li>//g;
# $txt =~ s/<\/li>//g;
# $txt =~ s/<font.+>(>.+)<\/font>/$1/g;
$txt =~ s/<br \/>//g if $pre == 1;
$txt =~ s/<li>//g if $pre == 1;
$txt =~ s/<\/li>//g if $pre == 1;
$txt =~ s/<font.+>(>.+)<\/font>/$1/g if $pre == 1;
}
close $fh;