home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 6_11.tcl < prev    next >
Text File  |  2003-04-16  |  175b  |  15 lines
  1. #
  2. # Example 6-11
  3. # Multiple loop variables with foreach.
  4. #
  5.  
  6. foreach {key value} {orange 55 blue 72 red 24 green} {
  7.     puts "$key: $value"
  8. }
  9. orange: 55
  10. blue: 72
  11. red: 24
  12. green:
  13.  
  14.  
  15.