in reply to How can I get SSI tags works in Perl script?
#!/usr/bin/perl -w use strict; use CGI qw(:standard); print start_html(); open( TEXT, "</blah/header.txt" ) or die "missing text file: $!"; my @insertion; while( <TEXT> ) { chomp; push( @insertion, $_ ); } close TEXT; print p( join( '', @insertion ) ); print end_html();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: (ichimunki) Re: How can I get SSI tags works in Perl script?
by mezz (Initiate) on Jul 20, 2001 at 06:11 UTC | |
by Masem (Monsignor) on Jul 20, 2001 at 06:50 UTC |