Rev 11480 |
Rev 14815 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| RSS feed
#!/usr/bin/perl
use strict "subs";
use locale;
use warnings;
### most of these "mistakes" has been done by the Msg2wims
### should be better to correct it but more difficult !
### introduction of \n can break the inline folds ...
my $file=$ARGV[0];
my $text = <IN>;
##multiple <p>
$text =~ s:(<p>\
s*){2,}:<p>:g
;
## close br and hr
$text =~ s:<(b
|h
)r
>:<$1r
/>:g
;
$text =~ s:<p>\
s*(<li>|</?ul
>|</?ol
>):$1:g
;
## delete <p> before <li><ul><ol>
$text =~ s:<br
?/?>\
s*(<li>|</?ul
>|</?ol
>):$1:g
;
## delete <li> empty
$text =~ s:<li>\
s*</(u
|o
)l
>:</$1l
>:g
;
## transform some hr
$text =~ s|<hr\
s+width
="(\d+)%"\
s*/?/>|<hr style
="width:$1%"/>|g
;
## delete <br/> before table ?
$text =~ s|<br
?/></table
>|</table
>|g
;
## delete multiple <br>
$text =~ s:(<br
?/>\
s*)+:<br
/>:g
;
$text =~ s:</div
>\
s+</div
>:</div
></div
>:g
;
$text =~ s:</div
>\
s*<br
/>\
s*</div
>:</div
></div
>:g
;
## delete <br/> before div
$text =~ s:<br
/>\
s*<div
:<div
:g
;
$text =~ s:<br
/> *!:<br
/>\n!:g
;
$text =~ s:\n{3,}:\n\n:g
;