http://qs1969.pair.com?node_id=127399


in reply to Can I do Server-Side-Includes in Perl?

why do all that just open the html document you would have normally put in the include tag and print it out... ie. 
open(B, "any.html"); 
while(<B>){
$line = $_; 
print $line;
}

[download]
its simple, and very easy to understand.

Replies are listed 'Best First'.
Re: Answer: Can I do Server-Side-Includes in Perl?
by qslack (Scribe) on Nov 26, 2001 at 06:13 UTC 
    open(FILE, "filename") or die "$!\n";
print while <FILE>;

    [download]
    also works, and it's a bit more concise. You will want to change the die part for your specific application, but it's better than no error handling.

    Quinn Slack
    perl -e 's ssfhjok qupyrqs&&tr sfjkohpyuqrspitnrapj"hs&&eval&&s&&&'
[reply]
[d/l]

In Section Seekers of Perl Wisdom