ex13.tcl

很不错的tcl编程实例

# Copyright 1996


# Authors

# Lakshmi Sastry
# Computing and Information Systems Department
# Rutherford Appleton Laboratory, Chilton, Didcot. OX11 0QX
# [e-mail]

#                         and

# Venkat VSS Sastry
# Department of Applied Mathematics and Operational Research
# Cranfield University, RMCS Shrivenham, Swindon, SN6 8LA
# [e-mail]

# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.
  
# The authors, RAL, RMCS Shrivenham, Cranfield University and AGOCG
# make no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty. Likewise they accept no responsibility
# whatsoever for any public domain software modules used (which are
# hereby acknowledged) in this software 


# set_ex1.tcl - simple usage
#
# everything is a string
# store the string 123
set x 123
puts $tout "x is $x\n"
set y 456
puts $tout "y is $y\n"

# z contains the string 123456
#  safer to use 
#   set z ${x}${y}
#
set z $x$y
puts $tout "z is the string $z\n"

#
# store blank-separated strings
#   use curly braces
#
set s {My telephone number is:}
puts $tout "$s\n"

#
# variable substitution
#   if you require variable substitution, use double quotes
#
set s "My telephone number is: $z"

puts $tout "$s\n"