Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

RSE / eperl-2.2.2 / eg / demo.table.iphtml 

            

              
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

              
<html>
<head>
<title>demo.table</title>
</head>
<body>
<blockquote>
<h1>demo.table</h1>
<table border=2>
<?
##
##  ePerl Demo: generated of a 1x1 chart as a HTML table
##  Copyright (c) 1997 Ralf S. Engelschall, All Rights Reserved. 
##
##  This generates a complex HTML table 
##  showing a 1x1 chart.
##
my $end = 12;
# top bar
print "<tr><th></th>";
for (my $i=1; $i <= $end; $i++) {
    print "<th>$i</th>";
}
print "</tr>";
# side bar and content
print"</tr>\n";
for (my $i=1; $i <= $end; $i++) {
    print "<tr><th>$i</th>";
    for (my $j=1; $j<= $end; $j++) {
        print "<td>", $i*$j, "</td>";
    }
    print"</tr>\n"; 
}
!>
</table>
</blockquote>
</body>
</html>