|)§\\startquotation§gi; s§(<\/BLOCKQUOTE>|<\/QUOTE>)§\\stopquotation§gi; s§*DIV[^<>]*>§§gi; # delete all divs s§*FONT[^<>]*(>|$)§§gi; # delete all font tags # Headers s§§\\chapter{§gi; s§
§\\section{§gi; s§
§\\subsection{§gi; s§
§\\subsubsection{§gi; s§§}§gi; # Links s§(.*)§\\goto{$3}[URL($2)]§gi; s§(.*)§\\reference[$2]{$3}§gi; # Tables if ($Table eq "y") { s§
]*)>§\\bTABLE \%$1 §gi; s§
§\\eTABLE§gi; s§§\\eTD §gi; s§]*)>§\\bTD §gi; s§§\\eTR §gi; s§ ]*)>§\\bTR §gi; } else { s§*T(ABLE|D|R|BODY)[^<>]*>§§gi; # delete all table tags } # if Table # Images s§ ]*)>§\\externalfigure[$1]§gi; s§
]*)\"([^<>]*)$§\\externalfigure[$2]\t\% $1 $3§gi; # Lists s§
§\\startitemize\[1\]§gi; s§
§\\startitemize\[n\]§gi; s§
§\\startitemize\[1\]§gi; # ? s§§\\stopitemize§gi; s§
- §\\item §gi; s§
§§gi; s§- §\\item §gi; # s§
- §\\item §gi; # s§
]*>§§gi; # s§
§\\par§gi; s§§\n\n§gi; s§
]*>§\n§gi; s§
]*>§\\blank §gi; s§<(PRE|TT|CODE)>§\\type{§gi; s§<(STRONG|B)>§{\\bf §gi; s§<(EM|I|U)>§{\\em §gi; s§^([^\s]*)>$§\\stop$1§gi; s§^<([^\s]*)([^<>]*)>$§\\start$1\[$2\]§gi; s§§}§gi; # all other closing tags become } s§<([^\s]*)(\s)(.*)>§\\$1\[$3\]\{§gi; # all other opening tags become { s§<([^\s]*)>§\\$1\{§gi; # all other opening tags become { s§^\s*§§g; # remove trailing spaces print ZIEL; print "."; } # while print "\n"; close (ZIEL); close (QUELLE); # \goto{text}[URL(Link)]