Question

未显示数据库中的默认选定值，我还检查了HTML并且未显示所选值。有人能给我一些关于我哪里出错的见解。感谢

  my $selected_val = 'selected';
  print "<select>";
  if ($auto_flag eq 'Y'){
        $selected_val = 'selected';
  }else{
    $selected_val = '';
  }
  if ($auto_flag eq 'N'){
    $selected_val = 'selected';
  }else{
      $selected_val = '';
  }
  print "<option value=\"Y\" $selected_val >Yes</option>";
  print "<option value=\"N\" $selected_val >No</option>";

  print "</select>";

Answer 1

您应该为Y / N

使用单独的变量名称

my $selected_y = '';
my $selected_n = '';
if ($auto_flag eq 'Y'){
    $selected_y = 'selected';
}
elsif ($auto_flag eq 'N'){
    $selected_n = 'selected';
}
print "<option value=\"Y\" $selected_y >Yes</option>";
print "<option value=\"N\" $selected_n >No</option>";

使用perl创建动态html选择选项

1 个答案: