The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

RSE / eperl-2.2.12 / eg / demo.table.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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

              
<!--
##
##  demo.table -- ePerl demonstration webpage
##  Copyright (c) 1997 Ralf S. Engelschall, All Rights Reserved. 
##
-->
<html>
<head>
<title>demo.table</title>
</head>
<body>
<blockquote>
<blockquote>
<h1>demo.table</h1>
<h2>Low-level HTML programming</h2>
Instead of writing down the complex HTML table constructs for the
1x1 chart we program it with the control structures of Perl
language.
<p>
<table border=2>
<?
my $end = 12;
# top bar
print "<tr><th bgcolor=\"#e0e0f0\" align=right>x</th>";
for (my $i=1; $i <= $end; $i++) {
    print "<th bgcolor=\"#e0e0f0\" align=right>$i</th>";
}
print "</tr>";
# side bar and content
print"</tr>\n";
for (my $i=1; $i <= $end; $i++) {
    print "<tr><th bgcolor=\"#e0e0f0\" align=right>$i</th>";
    for (my $j=1; $j<= $end; $j++) {
        print "<td align=right>", $i*$j, "</td>";
    }
    print"</tr>\n"; 
}
!>
</table>
</blockquote>
</blockquote>
</body>
</html>