>>579
どう見てもPerlに見えないけど・・・
スマートじゃないがこんな感じ

@chknum = (0,1,2);
@chkstr = ('yes','no','ok');

$data[1] = 2;
$out[0] = "no";

$chkflg = 1;
for($i = 0 ; $i < 3 ; $i++) {
if($chknum[$i] == $data[1] && $chkstr[$i] eq $out[0]) {
$selected = "selected";
$chkflg = 0;
}
else {
$selected = "";
}
$outstr[$i] = "<option " . $selected . " value=" . $chknum[$i] . ">" . $chkstr[$i] . "\n";
}
if($chkflg) {
print "<option " . $selected . " value=" . $data[1] . ">" . $out[0] . "\n";
}
for($i = 0 ; $i < 3 ; $i++) {
print $outstr[$i];
}

ちなみに難しい処理は一つも無い・・・聞く前に自分で考えてみたのか？