Arrays

set ArrayName( Bezeichner) Value

   set Umsatz(Januar)     42000
   set Umsatz(Februar)    35000
	
   foreach Monat {Januar Februar } {
      set JahresUmsatz [ expr $JahresUmsatz + $Umsatz($Monat)
   }

Mehrdimensionale Arrays sind in Tcl nicht direkt implementiert,   können aber, da der Bezeichner ein String sein kann, realisiert werden indem die durch Komma getrennten Dimensionen als String interpretiert werden.

   set feld(1,2) 42
   set i 1
   set j 2

   puts "$feld($i,$j)

Außerdem stellt Tcl noch eine Reihe nützlicher Befehle für Arrays zur Verfügung.

• array startsearch Name
  Liefert eine searchID für die Funktionen nextelement, donesearch und anymore zurück, zur Suche über alle Elemente des Arrays Name.
• array nextelement Name searchID
  Liefert den Namen des nächsten Elementes des Arrays Name mit der Kennung searchID, bzw. einen leeren String zurück, wenn bereits alle Elemente durchlaufen wurden.
• array anymore Name [searchID]
  Liefert 1 zurück wenn noch nicht alle Elemente des Arrays Name mit der Kennung searchID durchsucht wurden.
• array donesearch Name searchID
  Beendet die Suche für das Array Name mit der Kennung searchID.
• array names Name
  Liefert eine Liste der Elementbezeichnungen des Arrays Name zurück.

  		% set profit(monday) 287
  		287
  		% set profit(wednesday) 312
  		312
  		% array names profit
  		monday wednesday
  

• array size Name
  Ergibt die Anzahl aller im Array Name gespeicherten Elemente.