Fun with Arithmetic
- Two plus two is <%= [expr 2+2] %>
- This AOLserver is running version <%= [info tclversion] %> of Tcl.
<%
# here's an example of escaping to Tcl with <% and executing code
# for its effect on the environment in which we'll evaluate the rest
# of the page
set aquarium_types_and_costs \
[list [list "Lake Malawi Cichlid" 5000] \
[list "Saltwater Community" 7000] \
[list "Reef" 10000] \
[list "Planted Freshwater" 6000] \
[list "Suspended-in-midair Stingray Pond" 45000] \
]
%>
- The first element of
<%= $aquarium_types_and_costs %> is
<%= [lindex $aquarium_types_and_costs 0] %>
- Here are some aquarium plans for the new building:
<%
# we will use ns_puts to add to the viewable page from within this
# page
set total 0
foreach pair $aquarium_types_and_costs {
# let's immediately destructure, preserving some
# semblance of abstraction
set aquarium_type [lindex $pair 0]
set aquarium_cost [lindex $pair 1]
incr total $aquarium_cost
ns_puts "- $aquarium_type will cost \$$aquarium_cost\n"
}
ns_puts "
\n
- Total: \$$total"
%>