KennyQiのPHPメモと息抜きブログ
KennyQi(ケニーチー)のブログへようこそ
Web制作 PHP開発のメモと息抜きブログ
ウェブ開発・デザイン・Nucleusのメモや旅日記などを綴っています
Perl CGI.pmでFormを作る
2009年09月14日 | Perl | Posted by: kennyqi
| 1240 PV
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 を使ってみよう
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 を使ってみよう
Search
Categories
Tags
New Comments
11/26 09:22:28
kennyqi
CPUの稼働率、 DBとWebサーバを分けたら落ち着きました^^;>>
11/05 02:37:46
kennyqi
この設定をしたら、サーバのCPU稼働率が100%になる時間が出...>>
08/10 11:46:27
kennyqi
2009年8月15日よりAmazonAPIは 電子署名による取得が必須と...>>
01/09 00:43:25
kennyqi
どうもありがとうございます。 写真はわけたほうがみやすい...>>
01/09 00:36:48
Motoo
早速旅行記おめでとうございます。 ただ、画像がおおきすぎ...>>
Archives
カテゴリ別記事リスト
2月, 2010
11月, 2009
9月, 2009
7月, 2009
6月, 2009
4月, 2009
3月, 2009
2月, 2009
1月, 2009
12月, 2008
11月, 2008
10月, 2008
9月, 2008
5月, 2008
3月, 2008
2月, 2008
1月, 2008
12月, 2007
Memo
» フリーWebテンプレート
» 携帯絵文字一覧
» 無料ロゴメーカー
Categories
Tags
AU | 海外アプリ | Nucleus | メールサーバ | エラー | 文字化け | Softbank | CentOS5 | Apache | CentOS | Google | SEO | 携帯 | テンプレート | Postfix | HDD | PHP | UTF-8 | CentOS4 | MySQL
New Comments
11/26 09:22:28
kennyqi
CPUの稼働率、 DBとWebサーバを分けたら落ち着きました^^;>>
11/05 02:37:46
kennyqi
この設定をしたら、サーバのCPU稼働率が100%になる時間が出...>>
08/10 11:46:27
kennyqi
2009年8月15日よりAmazonAPIは 電子署名による取得が必須と...>>
01/09 00:43:25
kennyqi
どうもありがとうございます。 写真はわけたほうがみやすい...>>
01/09 00:36:48
Motoo
早速旅行記おめでとうございます。 ただ、画像がおおきすぎ...>>
Archives
カテゴリ別記事リスト
2月, 2010
11月, 2009
9月, 2009
7月, 2009
6月, 2009
4月, 2009
3月, 2009
2月, 2009
1月, 2009
12月, 2008
11月, 2008
10月, 2008
9月, 2008
5月, 2008
3月, 2008
2月, 2008
1月, 2008
12月, 2007
Memo
» フリーWebテンプレート
» 携帯絵文字一覧
» 無料ロゴメーカー