nicht angemeldet
Text auslesen und in andere Datei einfügen
Hi,
mein Problem: Ich habe eine Text-Datei (sagen wir test.txt) mit einer Zeile Text, z.B. Hallo Welt. Jetzt möchte ich ein Perl-Script schreiben, daß den Text (also Hallo Welt) aus der Text-Datei ausliest, eine HTML-Datei erstellt und diesen Satz dort einfügt. Der Quelltext der HTML-Datei sollte in etwa so aussehen:
<html>
<head>
<title>Hallo</title>
</head>
<body>
Hallo Welt
</body>
</html>
Allerdings bin ich noch ziemlich unerfahren in solchen Dingen kriege es einfach nicht hin. Kann mit nicht jemand von Euch helfen? Danke
-
Hi das ist eine Lösung, die ich wo verwendet habe:
#!/usr/bin/perl
@Zeilen = ("");
open(EINTRAGSDATEI,"<eintraege.txt");
while(<EINTRAGSDATEI>)
{
push(@Zeilen,$_);
}
close(EINTRAGSDATEI);open(FORUMSDATEI, "<../forum/forum.htm") die "Datei nicht gefunden";
print "Content-Type: text/html\n\n";
while(<FORUMSDATEI>)
{
print $_;
if($_ =~ "<!--eintrag//-->")
{
for(@Zeilen)
{
print $_;
}
}
}
close(FORUMSDATEI);exit (0);
Die Datei ist ../forum/forum.htm mit relativem Pfad, und der Kommentar in der Datei wird durch den Inhalt der Liste @Zeilen ersetzt.
Das sollte es eigentlich tun.Gruss
Marko
-
hi!
mein Problem: Ich habe eine Text-Datei (sagen wir test.txt) mit einer Zeile Text, z.B. Hallo
Welt. Jetzt möchte ich ein Perl-Script schreiben, daß den Text (also Hallo Welt) aus der
Text-Datei ausliest, eine HTML-Datei erstellt und diesen Satz dort einfügt.Probier mal folgendes, das sollte funktionieren.
=== cut ===
#!/usr/bin/perl
print <<'EOT';
Content-type: text/html<html>
...Anfang der HTML-Datei...
EOT
open FILE, "<test.txt";
print <FILE>;
close FILE;
print <<'EOT';
...Ende der HTML-Datei...
</html>
EOT
=== cut ===bye, Frank!