#html #perl
#HTML #perl
Вопрос:
Всем привет, я новичок в Perl и написании сценариев, и у меня есть этот код:
print << "_END_HTML1_";
<div id="tabel">
<table style="width:10%">
<tr>
<th><input type=button value="Stop" onclick="document.getElementById('dostop').value='ON'; document.getElementById('formHiddenValues').submit();"/></th>
<th><input type=submit value="Refresh" ></th>
</tr>
</table>
</div>
<p><i>This window will be automatically refreshed after 10 seconds ...</i></p>
_END_HTML1_
system("cat /srv/www/htdocs/wwwrun-rw/$targetSystem-install_progress.txt 2>/dev/null");
print "</pre>n";
if ( "$installfinish" eq "1" ) {
$Params{'currentstep'} = 4;
print "<p>Press Finish to acknowledge the operation result and reset the system state to IDLE.</p>";
print "<input type=submit value='Finish' >n";
}
Кто-нибудь может показать мне, как заменить эту таблицу html, всю ее с помощью кнопки «Готово»?
Комментарии:
1. Где вы заполняете $installfinish? Вы используете обычный CGI или что-то еще?
2. Я думаю, вам нужно выразиться намного понятнее. Пожалуйста, покажите нам пример именно того результата, который вы хотите получить.
3. Не печатайте таблицу, если вы не знаете, нужна ли вам эта таблица. Переместите печать таблицы в
else
ветвьif( $installfinish )
инструкции.
Ответ №1:
Я думаю, что это скорее вопрос JS / HTML. Вот мое предложение.
print <<EOF;
<script>
var replacement = "<p>This is a replacement</p>";
</script>
<input type=submit value='Finish' onClick='document.getElementById("tabel").innerHTML = replacement;'>
EOF
Комментарии:
1. спасибо, но мне нужно заменить ее сразу после завершения процесса, а не когда я нажимаю «Готово»