1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl /usr/bin/asp-perl
<!--#include file=header.inc-->
<% if($Request->QueryString('transfer')) { %>
<font color=red>We just transferred from transfer.htm !!</font>
<p>
<% } %>
For loop decrementing font size:
<table cellpadding=3 border=0>
<% for my $num (reverse(1..6)) { %>
<tr>
<% for my $base (1..3) { %>
<td><font size=<%= $num %>><%= (10 ** $base) * $num %></font></td>
<% } %>
<td><font size=<%= $num %>>Size = <%= $num %></font></td>
</tr>
<% } %>
</table>
<!--#include file=footer.inc-->
|
