Listing 4: Tcl inside of HTML
<? set mesg "Hello, World!" ?>
<HTML>
<!-- example of Tcl -->
<HEAD><TITLE>Sample HTML Test File</TITLE></HEAD>
<BODY>
<CENTER>
<?
for {set i 1} {$i<=6} {incr i 1} {
puts "<h${i}> $mesg </h${i}>\n";
}
?>
</CENTER>
</BODY>
</HTML>
|