From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RSE / eperl-2.2b3 / eg / demo-08.phtml 

            

              
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
31
32

              
<html>
<head>
<title>demo-08: More programming</title>
</head>
<body>
<h1>demo-08: More programming</h1>
<table border=2>
<?
    $end = 12;
    # top bar
    print "<tr><th></th>";
    for ($i=1; $i <= $end; $i++) {
        print "<th>$i</th>";
    }
    print "</tr>";
    # side bar and content
    print"</tr>\n";
    for ($i=1; $i <= $end; $i++) {
        print "<tr><th>$i</th>";
        for ($j=1; $j<= $end; $j++) {
            print "<td>", $i*$j, "</td>";
        }
        print"</tr>\n"; 
    }
!>
</table>
</body>
</html>