问大家个问题 关于下拉菜单的做法

问大家个问题 关于下拉菜单的做法
相关图像上载：（BMP 格式， 58 K）


我有一段代码看不懂，就是做一个下拉菜单的
谁能帮我解释一下啊 （就是上面那个Device View的）
sub draw_select (@) {
my($name, $a_value, $selected, $javafunction) = @_;
my($str,$i);

$selected =~ tr/\n\r//d;
if( $selected eq '' )
{
$selected = $$a_value[0];
}
$str = "<SELECT NAME=\"$name\" $javafunction><OPTION SELECTED> $selected ";
foreach $i (0..$#$a_value )
{
if( $selected ne $$a_value[$i] )
{
$str .= "<OPTION> $$a_value[$i] ";
}
}
$str .= "</SELECT>";
}

   

你是哪里看不懂...
你是哪里看不懂呢？
感觉没什么好讲的
因为你东西没给全
谁知道a_value这个数组里面传入的都是什么？

这段代码的意思是判断每一项是否为默认选定项，如果是的话，则输出选定项；如果不是，则输出普通项