ex1.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 


# array_ex1.tcl - simple usage
#
# define the array countryInfo
#
set countryInfo(uk)     {London}
set countryInfo(france) {Paris}
set countryInfo(belgium) {Brussels}
parray countryInfo
#
# patterned search for array names
#
set cInfo(uk,capital) {London}
set cInfo(uk,currency) {pound}
set cInfo(uk,area)     {244044 sq km}
set cInfo(france,capital) {Paris}
set cInfo(france,currency) {Franc}
set cInfo(france,area)  {572923 sq km}
set cInfo(italy,capital) {Rome}
set cInfo(italy,currency) {lire}
set cInfo(italy,area)   {301223 sq km}

# 
# to extract currencies of all countries
#
foreach dosh [array names cInfo *,currency] {
   puts $tout "Currency: [set cInfo($dosh)] \n"
}