Include Files with Perl?

[Christopher]

Is there a way to include files with Perl?

Like a HTML file, similar to the PHP function include()


Thanx

[ashben]

To include & execute another server-side script, use:

<!--#exec cgi="scriptname.cgi" -->

To include the contents or output of a static file, use:

<!--#include file="header.html" -->

[Christopher]

Thanx

[Dusty]

Are you talking about including a Perl script's output from an HTML file or including a file from within a Perl script?

[Christopher]

Well I want to be in a perl script and have something like:


print "Content-type: text/html\n\n";
print "MY HONKING BIG HTML HEADER HERE";
print "My Text";
print "MY HONKING BIG HTML FOOTER HERE";

So, could I go like this:


print "Content-type: text/html\n\n";
print "<!--#include file="header.html" -->";
print "My Text";
print "<!--#include file="footer.html" -->";[/

Or is there a different way?

[YUPAPA]

#!/usr/bin/perl
use strict;
use Fcntl qw(:DEFAULT :flock);

my $file = qq(myfile.txt);

print "Content-Type: text/html\n\n";

sysopen(FILE,$file,O_RDONLY) || die print "Could not open $file for READ\n";
while(<FILE>) {
my $line = $_;
chomp $line;
print "$line\n";
}
close(FILE);

[YUPAPA]

replace "myfile.txt" on line 5 with your filename. :)

[Christopher]

Wow, thats kinda complicated, isn't there a way to just write it simply?

[Dusty]

open(FILE,"file.txt");
print <FILE>;
close(FILE);

or you could put it all on one line

open(FILE,"file.txt");print <FILE>;close(FILE);

Better?

[Christopher]

Lot better, thanx