KennyQi PHP Blog

PerlモジュールのCGI.pmでFormを作ったのでメモしておきます。

Perl CGIモジュールでフォームを作ってみました。
このCGIモジュールには、HTMLで使えるタグが結構そろっています。
ここで紹介している以外にもタグ出力用のメソッドがあるようです。

use strict;
# CGIモジュールを読み込み
use CGI;
# オブジェクト作成
my $q = CGI->new;
# フォームデータ受け取りは
$q->param('name');
print $q->header(-charset=>"utf-8"),	# HTMLヘッダ出力 $q->header
$q->start_html(			# HTMLタグ出力
-title    => "テストタイトル",
-charset  => 'UTF-8',
-encoding => 'UTF-8',
-lang     => 'ja-JP',
-style    => {'src'=>'style.css'}
);
# div開始タグ出力
print $q->start_div({-id=>'body'}),
$q->start_div({-id=>'head'});
print $q->start_form(-action=> $q->url ,-method=>'post'),		# フォーム開始タグ出力
$q->textfield(-name=>'ユーザID',				# テキストフィールド
-default=>'ユーザID',
-size=>10,
-maxlength=>16);
$q->password_field(-name => 'password', -size => '10'),		# パスワードフィールド
$q->filefield(-name => 'file'),					# ファイル $q->filefield
$q->submit(-name => 'submitLogin', -value => 'ログイン'),	# Submit
$q->hidden(-name => 'mode', -value => 'login'),			# Hidden
$q->end_form;							# フォーム終了タグ出力
# div終了タグ出力
print $q->end_div,
$q->end_div;
# 終了HTMLタグ
print $q->end_html;
exit;

フォームには他に
textarea $q->textarea
Reset $q->reset
radio $query->radio_group
checkbox $query->checkbox、$q->checkbox_group
select $q->popup_menu
もあります。
画像ボタンも下記のような感じです。

print $query->image_button(-name=>'image_button_name',
-src=>'/images/submit_btn.gif',
-align=>'MIDDLE');

詳しくはPerl DOCを。
参考
Perl Doc ～CGI – 簡単なCGI（Common Gateway Interface）クラス
Futomi’s CGI Cafe ～ CGI.pm を使ってみよう

こちらもあわせてどうぞ

• PHPからAjaxのjQueryを使う～Pquery
• NP_TagEXでタグクラウド
• WordPressのSEO設定 TITLE、METAタグのカスタマイズ
• PHPのmb_convert_encoding。UTF-8→SJISに変換で文字化け
• NP_Geshi2 をインストール