Сохранили значение текстового поля после постбэк

Question

Я использую ниже код CGI Perl:

print <<EOF; 
<table width=50% align='center'> 
<tr> 
<td align='right' width=40%>Sub Category: </td> 
<td align='left' width=50%> 
<select id='subcat' onchange="document.create_cont.submit();"> 
EOF 

my $filename='SN_CatProduct.xml'; 
my $xs = XML::Simple->new(); 
my $config = $xs->XMLin($filename); 
my $x = XML::Simple->new(ForceArray => 1); 
#my $proc_config = $x->XMLin('SN_Procedures.xml'); 

my $last; 
my $s_category = $config->{'category'}{'subcat'}; 
print "\n"; 
foreach my $key (sort (keys %{$s_category})){ 
#print "$s_category->{$key}{'sname'} <br>"; 
my $subcat_val=$s_category->{$key}{'sname'}; 
print "<option>".$subcat_val. "</option>"; 
$last=$key; 
} 
my $val=$q->param("subcat"); 
print "<p>".$val."</p>"; 
print <<EOF; 
</select> 
</td> 
</tr> 
</table> 
EOF 

Хотя освежающее значение параметра страницы не сохраняя.

Plese помочь мне сделать это ..

Спасибо заранее.

Answer 1

Спасибо всем!

Я использовал модуль cgi :: ajax. Теперь моя проблема была решена.

Answer 2

Когда вы выводите теги параметров, проверьте, соответствует ли значение выводимого тега значение в представленных данных формы. Если это так, добавьте к нему атрибут selected.

Возможно, вам будет легче достичь этого, если вы сохраните свои значения/метки в массиве (hashrefs), а затем, если вы будете жестко кодировать HTML для каждой опции.