Name="HTML-Markups in Text umsetzen"
Stich="HTML Markup HTML_Markups Konvertierung_von_HTML_in_Text HTML-Eingine
Lynx"
Zeit="Sam Jun 16 13:09:43 MEST 2001"
Kurz="Sie haben eine Website und wollen Sie in Text umsetzen - aber an
Formatierung soll so viel wie möglich borhanden bleiben."
Lang="
Hier funktioniert ein kleines Perl-Skript, aufgerufen mit$esCodes perl -w
htmlweg.pl$esCodee oder, nach vorherigem$esCodes chmod +x
htmlweg.pl$esCodee,$esCodes ./htmlweg.pl$esCodee. Das Skript liest das
HTML-Dokument von der Standardeingabe, und gibt das Textdokument an der
Standardausgabe aus.<br />
<a href=\"down/htmlweg.pl\">Download</a>.
`exCodes htmlweg.pl`
#!/usr/bin/perl -w
# htmlweg.pl - Entfernt HTML-Code aus Textdateien, beachtet aber bestimmte
#            - Formatierungen
# Copyright (C) 2001 by Ingo Blechschmidt
# Sam Jun 16 13:09:43 MEST 2001
`cat gpl.lic`
`cat add.lic`

@html = &lt;STDIN&gt;;

open (OUT, &quot;|grep -v table | grep -vw tr | grep -wv td | grep -vw th&quot;) ||
  die &quot;./htmlweg.pl: Kann keine Verbindung mit grep herstellen!&quot;;

foreach \$h (@html) {
  \$h =~ s/&lt;img src=.*. \/&gt;/---------------- Bild --------------/g;
  # \$h =~ s/&lt;br \/&gt;/\\n/g;
  \$h =~ s/&lt;br \/&gt;//g;
  \$h =~ s/&amp;auml;/&auml;/g;
  \$h =~ s/&amp;ouml;/&ouml;/g;
  \$h =~ s/&amp;uuml;/&uuml;/g;
  \$h =~ s/&amp;Auml;/&Auml;/g;
  \$h =~ s/&amp;Uuml;/&Uuml;/g;
  \$h =~ s/&amp;Ouml;/&Ouml;/g;
  \$h =~ s/&amp;szlig;/&szlig;/g;
  \$h =~ s/&lt;a href=/siehe &lt;/g;
  \$h =~ s/&gt;*&lt;\/a&gt;//g;
  \$h =~ s/&lt;em&gt;//g;
  \$h =~ s/&lt;\/em&gt;//g;
  \$h =~ s/&lt;ol&gt;|&lt;\/ol&gt;|&lt;ul&gt;|&lt;\/ul&gt;|&lt;\/li&gt;//g;
  \$h =~ s/&lt;ol&gt;|&lt;\/ol&gt;|&lt;ul&gt;|&lt;\/ul&gt;|&lt;\/li&gt;//g;
  \$h =~ s/&lt;li&gt;/* /g;
  \$h =~ s/&lt;span bgcolor=.#FFFFAA.&gt;&lt;code&gt;//g;
  \$h =~ s/&lt;.code&gt;&lt;.span&gt;//g;
  \$h =~ s/&lt;pre&gt;//g;
  \$h =~ s/&lt;\/pre&gt;//g;
  \$h =~ s/&amp;quot;/&quot;/g;
  \$h =~ s/&lt;strong&gt;//g;
  \$h =~ s/&lt;\/strong&gt;//g;
  \$h =~ s/&lt;i&gt;//g;
  \$h =~ s/&lt;\/i&gt;//g;
  \$h =~ s/&lt;u&gt;//g;
  \$h =~ s/&lt;\/u&gt;//g;
  \$h =~ s/&amp;gt;/&gt;/g;
  \$h =~ s/&amp;lt;/&lt;/g;
#  \$h =~ s/&lt;.+?&gt;/ /s;
  \$h =~ s/&amp;nbsp;/ /g;
  \$h =~ s/&amp;amp;/&amp;/g;
<em>  \$h =~ s/&lt;.+?&gt;/ /s;</em>
  print OUT \$h;
}

close(OUT);
`exCodee`
Wenn Sie mithelfen wollen, dieses Skript zu verbessern, sollten Sie die kursive
Zeile auskommentieren. Sie entfernt n&auml;mlich alle
&uuml;briggebliebenen HTML-Markups.<br /><br /><br />
<a name=\"snippet1\" id=\"snippet1\" />
Hinweis: Mit dem Befehl ${esCodes}lynx -dump HTML-Datei${esCodee} erreichen Sie
den gleichen Effekt. Sie werden sich dann sicher fragen, warum man das Skript
dann &uuml;berhaupt programmieren sollte. Antwort: Viele Distributionen liefern
Lynx nicht mehr mit :-(
"
case $1 in
  Name) echo $Name; exit;;
  Stich) echo $Stich; exit;;
  Zeit) echo $Zeit; exit;;
  Kurz) echo $Kurz; exit;;
  Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA=" txt/0007.txt txt/0029.txt txt/0030.txt txt/0039.txt txt/0044.txt
txt/0051.txt txt/0053.txt txt/0054.txt txt/0059.txt txt/0066.txt txt/0067.txt
txt/0077.txt txt/0084.txt txt/0085.txt txt/0092.txt"