Web Agent - [Perl]Perlサンプル

[トップページ] [戻る]
#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# 日付・時刻を取得する
#-------------------------------------------------------------
#
	# サーバー側のシステム日付を取得します
	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

	# なぜか、月が１つ少ないので、１を足します
	$mon++;

	# 形式フォーマット
	$date_time = sprintf("%02d/%02d/%02d - %02d:%02d:%02d です", $year, $mon, $mday, $hour, $min, $sec);

	# HTMLに出力します
	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">\n";
	print "現在の日付と時間は･･･<BR>\n";
	print "$date_time<BR>\n";
	print "</BODY>\n";
	print "</HTML>\n";
	exit;