HTMLファイル読み込み・表示
#! /usr/local/bin/perl print qq(Content-type: text/html\n\n); print <<END; <html> <head> <title>HTMLファイル読み込み</title> </head> <body> ↓HTMLファイル読み込み<br> <br> END #HTMLファイル読み込み open(FILE, "<../../sample/include1.html"); eval{ flock(FILE, 1) }; while($html = <FILE>){ print $html; } close FILE; print <<END; <br> </body> </html> END exit;
〔 実行する 〕