Perlでtitleを変数にして差し込みたいんだが。。。 – ソフトウェアエンジニアの技術ブログ：Software engineer tech blog

#!/usr/bin/perl --

print "Content-type:text/html\n\n";
$title = "ほげ";
open(FH, "../html/header.html");
while($data = <FH>){
	
	print "$data";
}
close(FH);

titleを予め$titleとすると、、、

<!DOCTYPE html>
<html>
<head>
	<meta charset="UTF-8">
	<title>$title</title>
	<link rel="stylesheet" type="text/css" href="asset/css/main.css" />
</head>
<header>
	<p><a href="index.html">Hpscript</a></p>
	<ul>
	    <li>ユーザーID:hogehoge</li>
	    <li>2019-03-01 18:26:35</li>
	</ul>
	<nav>
		<p>システム</p>
	</nav>
</header>

これだと、タイトルが$titleで出力されるんだなー

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

完全に違う気がするけどー、一応タイトルは変数にしてタイトル以外はインクルードもできるっちゃできるなーーーーーーー^^