CGI.pl

Perl 30分プログラム

mzp2007-04-29

30分シリーズ、その12。PerlでCGI。

言語に依存しないことばかりやっていてもしょうがないので、CGIライブラリをいじって簡単なCGIを書いてみる。

フォームに名前を入れると挨拶してくれるだけのCGI。

#!/usr/bin/env perl
use strict;
use warnings;
use CGI;
 
sub print_form(;$){
    my $name = $_[0] || 'World';
 
    print <<HTML
<html>
<head>
<title>Perl CGI</title>
</head>
<body>
<h1>Hello,$name !!</h1>
<p>What your name?</p>
<form method="GET">
<input name="name">
<input type="submit">
</form>
</body>
</html>
HTML
}
 
my $cgi = new CGI;
print $cgi->header(-charset=>'utf-8');
 
if(defined $cgi->param('name')){
    print_form($cgi->param('name'));
}else{
    print_form;
}
  • コーディングよりもドキュメントを読む時間のほうが長かった
  • テンプレートエンジンはないのかな？