Hi
peinlich peinlich Ich schreibe noch vorher was von Code und vergesse das in meinem Beispiel auch Html vorkommt. so soll es aussehen :
Code:
#!/usr/bin/perl
{
print "Originaldatei: "; chop ($indat = <STDIN>);
print "Neue Datei: "; chop ($outdat = <STDIN>);
print "HTML - Dokumenttitel:"; chop ($titel = <STDIN>);
# Quelldatei öffnen
open (INDAT,$indat) | | die "Fehler beim Öffnen von $indat" ;
# Zieldatei öffnen
open (OUTDAT,"> $outdat") | | die "Fehler beim Öffnen von $outdat";
# HTML Kopf schreiben
print OUTDAT "<HTML>\n" ;
print OUTDAT "<TITLE>$titel</TITLE>\n<BODY>\n";
while ( <INDAT> ) { # Quelldatei einlesen und via Regexp ändern
s/&/&/g;
s/>/>/g ;
s/</</g ;
s/\n/
\n/g ;
s/\344/ä/g;
s/\366/ö/g;
s/\374/ü/g;
s/\337/ß/g;
s/\304/Ä/g;
s/\326/Ö/g;
s/\334/Ü/g;
print OUTDAT ;
}
# HTML Fuß schreiben
print OUTDAT "
<HR>\n";
print OUTDAT "converted by ascii2html.pl\n";
print OUTDAT "</BODY>\n</HTML>\n";
close (INDAT); # Quelldatei schliessen
#!/usr/bin/perl
{
print "Originaldatei: "; chop ($indat = <STDIN>);
print "Neue Datei: "; chop ($outdat = <STDIN>);
print "HTML - Dokumenttitel:"; chop ($titel = <STDIN>);
# Quelldatei öffnen
open (INDAT,$indat) | | die "Fehler beim Öffnen von $indat" ;
# Zieldatei öffnen
open (OUTDAT,"> $outdat") | | die "Fehler beim Öffnen von $outdat";
# HTML Kopf schreiben
print OUTDAT "<HTML>\n" ;
print OUTDAT "<TITLE>$titel</TITLE>\n<BODY>\n";
while ( <INDAT> ) { # Quelldatei einlesen und via Regexp ändern
s/&/&/g;
s/>/>/g ;
s/</</g ;
s/\n/
\n/g ;
s/\344/ä/g;
s/\366/ö/g;
s/\374/ü/g;
s/\337/ß/g;
s/\304/Ä/g;
s/\326/Ö/g;
s/\334/Ü/g;
print OUTDAT ;
}
# HTML Fuß schreiben
print OUTDAT "
<HR>\n";
print OUTDAT "converted by ascii2html.pl\n";
print OUTDAT "</BODY>\n</HTML>\n";
close (INDAT); # Quelldatei schliessen
close (OUTDAT); # Zieldatei schliessen
} close (OUTDAT); # Zieldatei schliessen
}
CU
Christoph
Lesezeichen