コーディングについて

解決済

質問者：nardobrea
質問日時：2010/02/04 13:39
回答数：2件

http://www.aimix.jp/cgi/accformkioku.html
上のサイトを参考にログイン画面を作っていまして、
この例の場合のようにセレクトする値が3つ、4つならこの書き方でもよいと思うのですが、
セレクトする値が10個、15個…となればソースが長くなり、とても見づらいものとなってしまいます。もうちょっとスマートな
書き方はあるのでしょうか？(一部略してあります)

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">\n";
print "<title></title>\n";
print "</head>\n";
print "<body>\n";

&analysis;
&auth;

sub analysis{
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\r//g;
$FORM{$name} = $value;
}

$pass1 = $FORM{'user_name'};

return;

sub login{

if($pass1 eq '1'){
$check1 ="selected";
}
elsif($pass1 eq '2'){
$check2 ="selected";
}
else{
$check3 ="selected";
}

print <<HEADER;
<center>
<caption><h1>ログイン</h1></cption>
<table border="5" bgcolor="cfcfcf" width="300" height="150">
<tr>
<td align="center" valign="center">
<form name="form" method="post" action="./xxx.cgi">
ユーザー名:
<select name="user_name">
<option value="1" $check1>A</option>
<option value="2" $check2>B</option>
<option value="3" $check3>C</option>
</select>
<br><br>
パスワード:
<input type="password" name="password">
<br>
<center>
<input type="submit" name="submit" value="ログイン">
</center>
</form>
</td>
</tr>
</table>
</center>
HEADER

}

print "</body>";
print "</html>";
1;

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： taporu
回答日時：2010/02/05 20:58

#ユーザー指定

@User = (
"", #0番目スキップ
"A",
"B",
"C")

if($pass1 =~ /^[1..$#User]$/){
$check[$pass1] ="selected";
}else{
$check[$#User] ="selected";
}

foreach(1..$#User){
print "<option value=\"$_\" $check[$_]>$User[$_]</option>";
}