ハッシュからキーを取り出す

下記をhashkey.cgiで保存

#!/perl/bin/perl

require "ebs_sub1.cgi";

$SCRIPTNM="hashkey.cgi";

@foruda = ("WEAPON_LIST","BOUGU_LIST");

require "./$LOG_FOLDER/$HASH_DATA";#ログファイル読み込み
require "./$LOG_FOLDER/_bougu.data";

if($FORM{'sentaku'}){&SAKUJO;}
&MEIN;
sub MEIN{
&HEADER;
foreach(@foruda){
$SENTAKU.="<option value=$_>$_";
}
print <<"_HTML_";
<form action=$SCRIPTNM method=POST>
<table><tr><td>
ハッシュからキーを取り出す
</td></tr>
<tr><td>

$hash

</td></tr>
<tr><td>
<select name=sentaku $STYLE_B1>$SENTAKU</select>
<input type=submit value=決定 $STYLE_B1>
</form>
</td></tr>
</table>
_HTML_

}

sub SAKUJO{

$SENTAKU=$FORM{'sentaku'};

@www=keys %$SENTAKU;

foreach(@www){
$hash = $hash . "$_<br>";
}
&MEIN;
exit;
}
1;

ハッシュからキーだけを取り出します
図鑑の補完などに・・・それぐらいしか使い道がない

フレームが無かったらココをクリックしてください