nicht angemeldet
Hallo Forengemeinde,
ich hab mal eine allgemeine Frage zu Perl.
Wenn ich ein Perl/cgi Skript schreibe und dort eine html-Seite generieren möchte, habe ich bis jetzt vor jeden Tag print"..\n"; geschrieben. recht nervig.
Jepp hat mich schon bei meinem ersten Perl versuch generft (das guestbook)
Drum habe ich kurzerhand (naja 5 stunden hats wohl gedauert einen converter gebastelt.
Der convertiert eine HTML datein in perl print befehle...recht pracktisch.
<perl>
########################################################################
Dieses Script liest den Inhalt einer Html Datei ein und #
konvertiert ihn zu Perl Script print Anweisungen. #
Dabei werden Steuerzeichen automatisch in die entsprechenden
Escape Sequenzen umgewandelt
written bei Knut Meinke(zweites von vielen)
########################################################################
open (INPUT, "<$ARGV[0]"); # Öffnen der Datein
open (OUTPUT, ">out.pl");
while(defined($Zeile = <INPUT>)) # Einlesen der INPUT Datei bis Dateiende
{
$Zeile =~ s/"/\"/g; # Alle doppelten Anführungszeichen suchen und durch " ersetzen
$Zeile =~ s/@/\@/g; # Alle Klammeraffen suchen und durch @ ersetzen
chomp($Zeile); # Das letzte \n (Zeilenvorschub) abschneiden
$Zeile .= "\n"; # Schreibt am Ende jeder Zeile \n als plain Text
print OUTPUT "print " ",$Zeile,"";\n";# Schreibt jede Zeile inerhalb einer print Anweisung
} # in die Datei out.pl
close(INPUT); # Schließen der Datein
close(OUTPUT);
---------
</perl>