Gibt es in Perl einen Include-Befehl?

[Patrick Canterino]

Hallo René!

ich lerne gerade Perl und hatte bisher immer PHP benutzt. In PHP und in SSI gibt es Include Befehle um den Inhalt einer anderen Datei einfach einzubinden. Leider habe ich so etwas unter Perl bisher nicht gefunden. Gibt es das in Perl nicht?

Nicht direkt. Aber du kannst dir eine kleine Funktion basteln:

sub include
{
 my $file = shift;

open(FILE,"<$file") || die "Open $file: $!";
 read(FILE, my $data, -s $file);
 close(FILE);

return $data;
}

Die Funktion liest eine Textdatei ein und gibt ihren Inhalt zurück.

Viele Grüße
  Patrick Canterino