日付を画像表示(localtime time, substr)
#! /usr/local/bin/perl # 画像保存先 $url = "../../sample/img/no/"; # 日時取得 ($sec, $min, $hour, $date, $mon, $year) = localtime time; $year += 1900; ++$mon; # HTML出力 print "Content-type: text/html\n\n"; print "<html>\n"; print "<head>\n"; print "<title>日付を表示</title>\n"; print "</head>\n"; print "<body>\n"; print "<center>\n"; for($i = 0 ; $i < length($year) ; $i++) { # 年の画像を表示 my $n = substr($year, $i, 1); # 1文字抜き出す print qq(<img src="$url$n.gif" alt="$n">); } print "年\n"; for($i = 0 ; $i < length($mon) ; $i++) { # 月の画像を表示 my $n = substr($mon, $i, 1); # 1文字抜き出す print qq(<img src="$url$n.gif" alt="$n">); } print "月\n"; for($i = 0 ; $i < length($date) ; $i++) { # 日の画像を表示 my $n = substr($date, $i, 1); # 1文字抜き出す print qq(<img src="$url$n.gif" alt="$n">); } print "日\n"; print "</center>\n"; print "</body>\n"; print "</html>\n"; exit;
〔 実行する 〕