Subversion Repositories wimsdev

Rev

Rev 14815 | Rev 17234 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14815 Rev 17170
Line 12... Line 12...
12
open (IN ,$file) ;
12
open (IN ,$file) ;
13
my $text = <IN>;
13
my $text = <IN>;
14
##multiple <p>
14
##multiple <p>
15
$text =~ s:(<p>\s*){2,}:<p>:g;
15
$text =~ s:(<p>\s*){2,}:<p>:g;
16
## close br and hr
16
## close br and hr
17
$text =~ s:<(b|h)r\s*>:<$1r />:g;
17
$text =~ s:<(b|h)r\s*>:<$1r>:g;
18
## delete multiple <br>
18
## delete multiple <br>
19
$text =~ s:(<br\s*/>\s*){2,}:<br />:g;
19
$text =~ s:(<br\s*/>\s*){2,}:<br>:g;
20
$text =~ s:(<p>\s*){1,}(<li>|</?ul>|</?ol>):$2:g;
20
$text =~ s:(<p>\s*){1,}(<li>|</?ul>|</?ol>):$2:g;
21
## delete <br> before <li></?ul></?ol>
21
## delete <br> before <li></?ul></?ol>
22
$text =~ s:(<br\s*/?>\s*){1,}(<h[1-5].*>|<li|</h[1-5]>|</?ul>|</?ol>):$2:g;
22
$text =~ s:(<br\s*/?>\s*){1,}(<h[1-5].*>|<li|</h[1-5]>|</?ul>|</?ol>):$2:g;
23
## delete <li> empty
23
## delete <li> empty
24
$text =~ s:(<li>\s*){1,}</(u|o)l>:</$2l>:g;
24
$text =~ s:(<li>\s*){1,}</(u|o)l>:</$2l>:g;
25
## transform some hr
25
## transform some hr
26
$text =~ s|<hr\s+width="(\d+)%"\s*/?/>|<hr style="width:$1%"/>|g;
26
$text =~ s|<hr\s+width="(\d+)%"\s*/?/?>|<hr style="width:$1%">|g;
27
## delete <br/> before table ?
27
## delete <br> before table ?
28
$text =~ s|(<br\s*/>\s*){1,}</table>|</table>|g;
28
$text =~ s|(<br\s*/?>\s*){1,}</table>|</table>|g;
29
$text =~ s:</div>\s+</div>:</div></div>:g;
29
$text =~ s:</div>\s+</div>:</div></div>:g;
30
$text =~ s:</div>\s*(<br\s*/>\s*){1,}</div>:</div></div>:g;
30
$text =~ s:</div>\s*(<br\s*/?>\s*){1,}</div>:</div></div>:g;
31
## delete <br/> before div
31
## delete <br/> before div
32
$text =~ s:(<br\s*/>\s*){1,}<div:<div:g;
32
$text =~ s:(<br\s*/?>\s*){1,}<div:<div:g;
33
$text =~ s:<br\s*/> *!:<br />\n!:g;
33
$text =~ s:<br\s*/?> *!:<br>\n!:g;
34
$text =~ s:\n{3,}:\n\n:g;
34
$text =~ s:\n{3,}:\n\n:g;
35
close(IN);
35
close(IN);
36
 
36
 
37
open (OUT, ">$fileout");
37
open (OUT, ">$fileout");
38
print OUT $text ; close OUT;
38
print OUT $text ; close OUT;