nicht angemeldet
Hallo Markus
ist jemanden von Ihnen ein gutes Perl Skript bekannt, welches
in ASCII codierte Dateien als Input nimmt und diese in HTML
formatiert ?
Ich wuerde es so machen:
#!Perl
$InputFile = "/irgend/ein/pfad/mit/datei.txt";
$OutputFile = "/irgend/ein/pfad/mit/datei.htm";
$title = "Irgendein netter Titel";
open(TXT,"<$InputFile");
@txt = <TXT>;
close(TXT);
foreach(@txt) {
$_ =~ s/ä/&ä/g;
$_ =~ s/ö/&ö/g;
$_ =~ s/ä/&ü/g;
$_ =~ s/Ä/&Ä/g;
$_ =~ s/Ö/&Ö/g;
$_ =~ s/Ü/&Ü/g;
$_ =~ s/ä/&ä/g;
$_ =~ s/ß/&ß/g;
$_ =~ s/&/&&/g;
$_ =~ s/"/&"/g;
$_ =~ s/</&</g;
$_ =~ s/>/&>/g;
}
$htm[0] = "<html><head><title>$title</title></head><body><pre>";
foreach(@txt) {
push(@htm,$_);
}
push(@htm,"</pre></body></html>");
open(HTM,">$OutputFile");
print HTM @htm;
close(HTM);
Tja, aber wahrscheinlich ist das fuer einen echten Perl-Hacker wieder mal viel zu simpel <g>.
viele Gruesse
Stefan Muenz