nicht angemeldet
Hallo Marcel,
Leider kann ich kein Perl programieren. Bestehende Scipts anpassen ja, aber programmieren nein.
Desshalb jetzt meine frage, reicht das, wenn ich den folgenden Schnipselsub insert_file {
my $name = shift;
open(FILE, "<$name") || die "Error: $!\n";
while (<FILE>) {
print;
}
close(FILE);
}an die entsprechende Stelle ins Perlscript kopiere? und wo muss ich dann den Pfad zu der Datei hinschreiben, in dem das einzufügende liegt?
du must die Funktion von oben irgendwo in dein Script hinkopieren und kannst sie dann mit
insert_file("pfad/zu/deiner/datei");
benutzen.
Um nochmal auf dein Beispiel zurück zu kommen:
print <<__REQUEST__;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
EOREQUEST
insert_file("navigation_oben.html");
print <<__REQUEST__;
<CENTER>
<B>Schlage diese Seite einem Freund vor.<br>(<A HREF="$ENV{'HTTP_REFERER'}">$ENV{'HTTP_REFERER'}</A>)</B><P>
Wenn du einem Freund diese Seite empfehlen möchtest,
oder wenn du dir einfach selbst eine Erinnerung schicken möchtest, ist das der einfachste Weg......
Grüße,
Peter
p.s.: PERL ist nicht schwer zu lernen - und es lohnt sich.