JavaScript ist deaktiviert. Für eine bessere Darstellung aktiviere bitte JavaScript in deinem Browser, bevor du fortfährst.

Auf Thema antworten

Beitrag: [QUOTE="OlliP, post: 8306, member: 1796"] #!/usr/bin/perl -w print "Content-type: text/html\n\n"; htmlHeadAusgeben(); htmlFeldAusgeben(); htmlButtonsAusgeben2(); htmlFootAusgeben2(); # Ende Main Task sub htmlHeadAusgeben { print <<HEAD_ENDE; <HTML> <HEAD> <TITLE>neue Web-Page erfassen</title> <FORM NAME="WebPage" ACTION="/cgi-bin/P000/Info_insert.cgi" METHOD="POST"> <BODY BGCOLOR="LIGHTGRAY" onLoad=sf()> <H1>Daten zur neuen Web-Page erfassen</H1> <HR> HEAD_ENDE } sub htmlFeldAusgeben { print "<P>"; print "<TABLE><TR><TD>Überschrift</TD></TR>"; print "<TR><TD><INPUT TYPE='TEXT' Name='Ueberschrift' size='80' maxlength='80' VALUE='This + is + a + string'></TD>"; print "</TABLE>"; } sub htmlButtonsAusgeben2 { print <<Buttons_ENDE; <button id='interaktiv'> Daten erfassen </button> Buttons_ENDE } sub htmlFootAusgeben2 { print <<FOOT_ENDE; <HR> </FORM> <script> function clickHandler() { var Ueberschrift = document.getElementsByName("Ueberschrift")[0] var newString = Ueberschrift.value + ' weiterer Text'; var newstr1 = newString.replace(/\\+/g, "+"); // Kommentar window.alert('Ueberschrift: ' + newstr1); Ueberschrift.value = newstr1; } document.getElementById('interaktiv').onclick = clickHandler; Ueberschrift.value = newstr1; </script> </BODY> </HTML> FOOT_ENDE } [/QUOTE]