Perl CGI

HTMLユーザーの為の、CGI.pmモジュールを使ったCGIに関するメモ。

HelloWorld

お約束の HelloWorld を出力する CGI を書いてみる。 

#!/usr/local/bin/perl
use CGI;
$q = new CGI;
print $q->header,
      $q->start_html('helloworld.cgi'),
      $q->h1('HelloWorld'),
      $q->end_html;

この CGI を実行した結果出力される HTML は下記のとおり。ただし、見易いように改行しています。 

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html
	PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"
	"http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
<head>
<title>helloworld.cgi</title>
</head>
<body>
<h1>HelloWorld</h1>
</body>
</html>

これは困った…。このファイルが XML で書かれている事になってるし、UNICODE で保存されてる事になってるし、言語コードが ja では無いですね。直さなきゃ。