Web Agent - [Perl]Perlサンプル

[トップページ]
#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# ファイルの読み込み
#
# ファイルロック関数　flock() は Perl5 より使用可能です
#-------------------------------------------------------------
#
$file_name = "./test.dat";
$file_string;

	# ファイルをオープンします
	if (!open(IN, "$file_name")) {
		# 読み込みエラー
		exit;
	}

	# ファイルの内容を表示します
	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">\n";
	print "ファイルの内容を表\示します<BR>\n";
	print "<HR>\n";

	# ファイルの内容が無くなるまでループします
	while ($file_string = <IN>) {
		print "$file_string<BR>\n";
	}

	# ファイルを閉じます
	close(IN);

	print "<HR>\n";
	print "</BODY>\n";
	print "</HTML>\n";
	exit;