The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

GRICHTER / Embperl-3.0.1 / test / html / java.htm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

              
<html>
 <script language="JavaScript">
 var ReqFields = new init_reqfields('F1', 'F2');
 function init_reqfields() {
   window.alert("Initializing global required fields\n");
   this.length = init_reqfields.arguments.length;
   for (var i = 0; i < this.length; i++)
     this[i] = init_reqfields.arguments[i];
 };
 [- $java = () ; $java[0] = 1; $java[1] = 2; -]
 function print_reqfields() {
   var result = "<table><tr><td>[+$java[$row]+]</td></tr></table>";
   for (i = 0;  i < ReqFields.length; i++)
     result += ReqFields[i] + "\n";
   window.alert(result);
 };
 </script>
 <script>
   for (var j = 0; j < select2loc[i].length; j++){   }
 </script>
 </html>