Как заменить HTML-таблицу с помощью кнопки Perl

Question

Привет всем, я новичок в Perl и скриптах, и у меня есть этот код:

print 

  
    
     
  


This window will be automatically refreshed after 10 seconds ...
_END_HTML1_

system("cat /srv/www/htdocs/wwwrun-rw/$targetSystem-install_progress.txt 2>/dev/null");

print "

\ п "; if ("$ installfinish" eq "1") { $ Params {'currenttstep'} = 4; напечатайте "

Нажмите Finish, чтобы подтвердить результат операции и сбросить состояние системы на IDLE.

"; print " \ n"; }

Может кто-нибудь показать мне, как заменить эту HTML-таблицу, все это с этой кнопкой «Готово»?

Answer 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