<!--#include virtual="xxx"--> in Perl?!

[Marcel Miller]

Hallo Peter,

das einfachste ist sicherlich an der passenden Stelle die externe Datei aus dem Script heraus auszulesen und auf die Standartausgabe zu schreiben:

sub insert_file {
  my $name = shift;
  open(FILE, "<$name") || die "Error: $!\n";
  while (<FILE>) {
    print;
  }
  close(FILE);
}

Das hört sich gut an. Danke für deine Antwort.
Leider kann ich kein Perl programieren. Bestehende Scipts anpassen ja, aber programmieren nein.
Desshalb jetzt meine frage, reicht das, wenn ich den folgenden Schnipsel

sub 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?
mfg Marcel