Gibt es in Perl einen Include-Befehl?

[René Maroufi]

Hallo,

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?

Gruß und Danke im vorraus
René

[Philipp Hasenfratz]

Halihallo 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?

require bzw. use

perldoc -f require
perldoc -f use

Viele Grüsse

Philipp

[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