CGI プログラム１３
戻る
<![CDATA[
#!C:/perl/bin/perl
# select_start.pl
# 07.11.27
use strict;
use HTML::Template;
my (%t,@loop,$n);
# ループデータ生成
@loop = ();
for $n ( 1 .. 100 ) {
my %row = (
NO => $n
);
# put this row into the loop by reference
push(@loop, \%row);
}
# HTMLファイル出力
$t{template} = HTML::Template->new(filename => 'select_start.htm');
$t{template}->param(LOOP => \@loop);
print $t{template}->output;
1;
-------------------------------------------------------------------------------
<html>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<head><title>select_start</title>
<head>
<body bgcolor="#fcf5ca">
<h2>select_start</h2>
<a href="http://localhost/index.html">http://localhost/index.html</a>
<hr>
<form method="POST" action="select_show.pl">
數(shù)量を選択し,?選択?をおしてください。<br>
QTY==>
<select name="SEL1">
<TMPL_LOOP NAME="LOOP">
<option value="<TMPL_VAR NAME="NO">"><TMPL_VAR NAME="NO"></option>
</TMPL_LOOP>
</select>
<hr>
100を超えた場(chǎng)合,入力してください。<br>
<div>QTY==><input type="text" name="SEL2"></div>
<input type="submit" value="選択">
<input type="reset" value="取消">
</form>
<hr>
</body>
</html>
-------------------------------------------------------------------------------
#!C:/perl/bin/perl
# select_show.pl
# 07.11.27
use strict;
use CGI qw/:standard/;
use HTML::Template;
my (%t);
# CGIのパラメータ転送
$t{q} = new CGI;
$t{select1} = $t{q}->param("SEL1");
$t{select2} = $t{q}->param("SEL2");
# 2つのデータを選別
if ($t{select2} =~ /\d*/ and $t{select2} > 100 ) {
$t{select} = $t{select2};
} else {
$t{select} = $t{select1};
}
# HTMLファイル出力
$t{template} = HTML::Template->new(filename => 'select_show.htm');
$t{template}->param(select => $t{select});
$t{template}->param(select1 => $t{select1});
$t{template}->param(select2 => $t{select2});
print $t{template}->output;
1;
-------------------------------------------------------------------------------
<html>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<head><title>select_show</title>
<head>
<body bgcolor="#fcf5ca">
<h2>select_show</h2>
<a href="http://localhost/index.html">http://localhost/index.html</a>
<hr>
選択結(jié)果は次のとおりである。<br>
select==><TMPL_VAR NAME="select"><br>
select1==><TMPL_VAR NAME="select1"><br>
select2==><TMPL_VAR NAME="select2"><br>
<hr>
<a href="http://localhost/scripts/select_start.pl">戻る</a>
</body>
</html>
-------------------------------------------------------------------------------
]]>
戻る
新营市|
余庆县|
衢州市|
威海市|
米泉市|
嘉祥县|
田东县|
白玉县|
福泉市|
巩留县|
乌兰浩特市|
信丰县|
依兰县|
彰化市|
灵山县|
禄丰县|
灯塔市|
青龙|
湖北省|
孟州市|
澄城县|
托里县|
银川市|
高州市|
宣城市|
庐江县|
喀什市|
临洮县|
永丰县|
南部县|
东兴市|
宽城|
新津县|
辽宁省|
鹿泉市|
兴仁县|
聊城市|
墨玉县|
方城县|
沙雅县|
汽车|