Öppna filen som skall inkluderas, läs en rad i taget från den och skriv ut raden. Här är en liten trevligt funktion i Perl som du kan använda:
sub print_file
{
my $filename = shift(@_);
if(!open(FILE, "<$filename"))
{
return -1;
}
while(!eof(FILE))
{
my $temp = <FILE>;
print $temp;
}
close(FILE);
return 0;
}
När du vill inkludera en fil, gör du bara så här:
print_file("fil.namn");
:)
[Redigerat av Muzzafarath den 30 dec 2000]