Arrays in Tcl - a demonstration

Training, Open Source computer languages

Perl •

PHP •

Python •

Tcl •

Ruby •

Lua •
- Learning to Program in Lua
- Lua Programming

C & C++ •

Java •

MySQL •
- MySQL - Programming and Admin

Tomcat •

Linux

Arrays in Tcl - a demonstration

# Array in Tcl

 

set town(Wycombe) 120000

set town(Marlow) 32567

set town(Amersham) 17000

set town(Melksham) 24000

set town(1) xxxxxx

set town(1.) yyyyyyy

 

# Note that you CAN use numbers as subscripts but you 

# must be careful because element "1" is different to

# element "1." ... or element "1.0"

 

set place Oxford

set town($place) 140000

 

# Note - need to be careful as to whether to put a $ in 

# front of the array name, the subscript, both, or neither

# as all rour options are valid in the right circumstance

 

puts "Please choose a town "

set said [gets stdin]

 

if {[info exists town($said)]} {

        puts "$said has a population of $town($said)"

} else {

        puts "dunno"

}

 

set keylist [lsort [array names town]]

foreach said $keylist {

        puts "$said has a population of $town($said)"

        }

(written 2007-11-10 08:14:46)

Associated topics are indexed under

T208 - Tcl/Tk - Arrays

Back to
Buffering up in Tcl - the empty coke can comparison

Previous and next
or
Horse's mouth home

Forward to
Travel Across Wiltshire - the game

Some other Articles

Getting the community on line - some basics
Integer v float - Python
Remembrance day - inside a church and inside the day
Travel Across Wiltshire - the game
Arrays in Tcl - a demonstration
Buffering up in Tcl - the empty coke can comparison
Melksham v Ely
Closer than you think - the next step
MySQL - table design and initial testing example
Wiltshire - speaker / after dinner talker offer

2259 posts, page by page

Link to page ... 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46 at 50 posts per page

This is a page archived from The Horse's Mouth at http://www.wellho.net/horse/ - the diary and writings of Graham Ellis. Every attempt was made to provide current information at the time the page was written, but things do move forward in our business - new software releases, price changes, new techniques. Please check back via our main site for current courses, prices, versions, etc - any mention of a price in "The Horse's Mouth" cannot be taken as an offer to supply at that price.

Link to Ezine home page (for reading).
Link to Blogging home page (to add comments).

Public Training Courses

Running regularly at our UK training Centre.
[Schedule] - [About] - [Book]

Related short articles

Tcl - nice and nasty

Handling nasty characters - Perl, PHP, Python, Tcl, Lua

Tcl/Tk - why does the canvas widget use a display list?

Matching disparate referencing systems (MediaWiki, PHP, also Tcl)

Perl - lists do so much more than arrays

Error: Cant read xxxxx: no such variable (in Tcl Tk)

What is running on your network? (tcl and expect)

Global - Tcl, PHP, Python

Calling procs in Tcl and how it compares to Perl

Cambidge - Tcl, Expect and Perl courses

Java - a demonstration of inheritance on just one page

Advanced Python, Perl, PHP and Tcl training courses / classes

OO PHP demonstration - comparing objects and more

Tcl - learning how to use namespaces, packages and libraries together

Object Oriented Tcl

Tcl/Tk - updating your display while tasks are running

Using Tcl/Tk resource files for flexible applications

Making a variable dynamically visible in a Tcl/Tk GUI

Cliff Lift simulator- Lynton to Lynmouth - in Tcl/Tk

fill and expand on Tcl/Tk pack command

Curley brackets v double quotes - Tcl, Tk, Expect

stdout v stderr (Tcl, Perl, Shell)

Perl, PHP, Python, Tcl, Linux, MySQL, Ruby courses ...

More PHP sample and demonstration programs

Linux, PHP, Tcl, Ruby, C, C++ - last minute training course availability

Arrays in Tcl - a demonstration

Buffering up in Tcl - the empty coke can comparison

Sparse and Greedy matching - Tcl 8.4

Tcl / regsub - changing a string and using interesting bits

Reading from another process in Tcl (pipes and sockets)

Sorting in Tcl - lists and arrays

Tcl - global, upvar and uplevel.

Square Bracket protection in Tcl

Tcl - append v lappend v concat

Tcl - using [] or {} for conditions in an if (and while)

Tk locks up - 100% c.p.u. on a simple program (Tcl, Perl, Python)

Handling Binary data in Tcl (with a note on C)

Expanding a grid - Tcl/Tk

Stable sorting - Tcl, Perl and others

Tktable - Laying out data in a matrix - Tcl/Tk

Stringing together Tcl scripts

AgtInvoke - a command to drive Agilent Tcl software extensions

Changes in advertising cut lines / Buscot / Tcl course

Installing Tcl and Expect on Solaris 10 - a checklist

Buffering output - why it is done and issues raised in Tcl, Perl, Python and PHP

PHP adding arrays / summing arrays

Tcl training - often for a larger group

Running external processes in Tcl and Tcl/Tk

Converting between Hex and Decimal in Tcl

Tcl - lappend v concat

Testing you Perl / PHP / MySQL / Tcl knowledge

How to check that a string contains a number in Tcl

Central London Courses - Perl, PHP, Python, Tcl, MySQL

Error handling in Tcl through catch

Comments in Tcl

Writing a Tcl/Tk GUI is as easy as baking a cake

Object Orientation in Tcl - [incr-Tcl]

Tcl/Tk (wish) Grid layout example

Joining lists in Tcl. Indirect variables in Tcl.

Examples - Gadfly, NI Number, and Tcl to C interface

example of Tcl namespaces and packages

Tcl sandwich - lists in Tcl

Passing arrays to procs in Tcl

Business is the predominant user of Tomcat, Perl and Tcl

© WELL HOUSE CONSULTANTS LTD., 2009: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 707126 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho