あたらしものずきっ！

試してみたものとか、遊んでみたものを色々記してみます。

CGI.pmだけでいけそうなことに気がつく

Perl

CGI - 簡単なCGI（Common Gateway Interface）クラス

をみてたら、CGI.pmだけでhtml出力がまかなえることに気がついた。

#!/usr/bin/perl

use strict;
use warnings;
use CGI;

my $objCgi = new CGI;
print $objCgi->header,
      $objCgi->start_html('tetest'),
      $objCgi->h1('Hello, World!'),
      $objCgi->end_html;

ブラウザで出力すると、

<!DOCTYPE html
	PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
<head>
<title>tetest</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<h1>Hello, World!</h1>
</body>
</html>

せっせとタグを書いてたのが馬鹿みたいだ。