headerとsidemenuは1ファイルにインクルード化

フロントは予め作っておきます。

#!/usr/bin/perl --

print "Content-type:text/html\n\n";
$title = "トップ";
open(FH, "../html/header.html");
while($header = <FH>){
	if($header =~ /title/){
			print "<title>$title</title>";
		} else {
			print $header;
		}
}
close(FH);

open(FH, "../html/side.html");
while($side = <FH>){
		print $side;
}
close(FH);

ほほーう、なるほどね。こうすれば、わざわざ1行ずつprint “html tag”; なんて面倒なことしなくていいですね。
Perlの苦手意識が先行していたが、少し楽しくなってきた^^

mainも追加します。

#!/usr/bin/perl --

print "Content-type:text/html\n\n";
$title = "トップ";
open(FH, "../html/header.html");
while($header = <FH>){
	if($header =~ /title/){
			print "<title>$title</title>";
		} else {
			print $header;
		}
}
close(FH);

open(FH, "../html/side.html");
while($side = <FH>){
		print $side;
}
close(FH);

open(FH, "../html/hoge.html");
while($main = <FH>){
		print $main;
}
close(FH);

ひょえーーー