Richard Suchenwirth - This page ("simply Tcl") is in German for even more i18n;-) It is the draft of a planned presentation. First thought of ppt or Word, but somehow I preferred the Wiki - plus allowing at least German speakers from Tclworld to discuss this while I'm writing it - best place your comments etc. at bottom of page!
Tcl (Tool command Language, ausgesprochen "tickel") ist eine einfache, aber m�chtige Programmiersprache. Da Turing-vollst�ndig, kann im Prinzip jede Aufgabe in Tcl gel�st werden, jedoch nicht immer optimal.
Tcl wird (zusammen mit Perl, Python, VB) auch als Scriptingsprache bezeichnet. Zu "System-Programmiersprachen" wie C, Java, Assembler bestehen folgende Unterschiede:
Tcl kann mit C/C++/Java-Code f�r laufzeitkritische Teile auf verschiedene Weisen verbunden werden:
Tk (ToolKit) ist die wichtigste Tcl-Erweiterung, ein plattformunabh�ngiger GUI-Toolkit (X11, Windows, Macintosh):
Weitere bekannte Erweiterungen:
Tcl bietet starke Unterst�tzung von Internationalisierung mit Unicode:
Tcl vereint Konzepte aus verschiedenen Software-Welten:
Tcl hat die einfachste Syntax aller Scriptingsprachen:
Kommandos haben folgende Eigenschaften:
Strukturierung von Tcl-Applikationen:
Datenhaltung in Tcl:
Ablaufsteuerung in Tcl:
Die wichtigsten Kommandos:
Die wichtigsten Listen-Kommandos:
Die wichtigsten String-Kommandos:
Die wichtigsten I/O-Kommandos:
Tcl hat eine kleine, aber qualifizierte weltweite Anwendergemeinschaft, die vor allem auf folgenden �ffentlichen Wegen kommuniziert:
Beispiel: Berechnung des Mittelwerts einer Zahlenliste
proc mean L {expr double([join $L +]) / [llength $L]}Die Elemente der Liste L werden mittels join durch "+"-Zeichen zu einem String verbunden. Dieser wird in expr ausgewertet, durch double in Gleitkommazahl gewandelt (um Integer-Division zu vermeiden) und durch die L�nge der Liste geteilt. Das Ergebnis von expr ist implizit der R�ckgabewert von mean.
Beispiel: Spiegeln einer Liste
proc lrevert L {
set i [llength $L]
set res {}
while {[incr i -1]>=0} {lappend res [lindex $L $i]}
set res
}
% lrevert {foo bar grill test}
test grill bar fooDie Schleife �ber die Elemente der Liste beginnt mit N-1 (N als L�nge der Liste), da String- und Listenindizes ab 0 z�hlen, und endet mit 0. Die entsprechenden Listenelemente werden mit lindex geholt und mit lappend an die Ergebnisliste res geh�ngt. set res ist als letztes Kommando einer proc �quivalent zu return $res.
Beispiel: Introspektion des eigenen Proc-Namens
proc myProcName {} {lindex [info level -1] 0}info level gibt Zugriff auf den Aufrufstapel (callstack), info level -1 das Kommando, mit der der Aufrufer dieser Prozedur aufgerufen wurde. Das erste Element des Kommandos (lindex ... 0) ist definitionsgem�� der Name.
Beispiel: Klagloser Incrementor Das Tcl-Kommando incr leistet schnelle Integer-Addition bzw. Subtraktion, vorausgesetzt die Variable existiert bereits. Damit sie im anderen Fall automatisch angelegt wird (wie bei awk �blich), faktorisieren wir die sonst erforderliche Existenzpr�fung an diese proc aus:
proc inc {varname {amount 1}} {
upvar 1 $varname var
if {![info exist var]} {set var 0}
incr var $amount
}Hier wird die lokale Variable var an den in varname �bergebenen Namen einer (m�glichen) Variablen (kann auch Array-Element sein) im Skopus des Aufrufers gebunden. Damit kann var gepr�ft, intialisiert, inkrementiert werden.. und f�r den Aufrufer ist das gleiche mit $varname geschehen.
Beispiel: Zeichenh�ufigkeit
proc charFreq string {
foreach char [split $string ""] {
inc t($char)
}
foreach {char count} [array get t] {
lappend pairs [list $char $count]
}
lsort -integer -decreasing -index 1 $pairs
}Der string wird in Einzelzeichen gesplittet, �ber die iteriert und ein Element in dem tempor�ren Array t klaglos inkrementiert wird. Der Inhalt des Arrays, eine ungeordnete flache Liste von alternierend Zeichen und Anzahl, wird in eine Liste von Paaren gewandelt, die dann bequem nach absteigender H�ufigkeit sortiert werden kann. String kann Megabytes lang und nat�rlich auch koreanisch, griechisch oder arabisch sein...
% charFreq Tennessee
{e 4} {n 2} {s 2} {T 1}Beispiel: Fehlertolerantes Lesen einer Textdatei
proc readfile {filename} {
if ![catch {open $filename} fp] {
set res [read $fp [file size $filename]]
close $fp
} else {set res {}}
return $res
}Wenn das �ffnen der Datei filename gelingt (der catch nicht anschl�gt), wird sie in ganzer L�nge in die Variable res gelesen und zur�ckgegeben. Andernfalls wird ein leerer String zur�ckgegeben. M�gliche Anwendung als Zeilenz�hler:
proc wc-l filename {llength [split [readfile $filename] \n] }Beispiel: Textausgabe in Datei, mit Sicherheitskopie
proc text2file {text filename} {
if [file exists $filename] {
file rename -force $filename $filename.bak
}
set fp [open $filename w]
puts $fp $text
close $fp
}Existiert eine Datei namens filename, so wird sie in (filename).bak umbenannt. Dann wird eine neue Datei des Namens zum Schreiben ge�ffnet, der �bergebene String (kann beliebig lang sein) mit abschlie�endem Zeilenvorschub hineingeschrieben, und die Datei geschlossen.
Beispiel: Internet-Dateiherunterlader
package require http http::config -proxyhost proxy -proxyport 80 puts [http::data [http::geturl [lindex $argv 0]]]
Verwendet wird das mit Tcl mitgelieferte package http. Mit http::config wird der hier �bliche Proxy-Rechner eingestellt. Die bei Aufruf des Scripts angegebene URL wird geladen und ihr Datenanteil (der eigentliche Inhalt) auf stdout ausgegeben, kann jedoch in eine Datei umgeleitet werden:
$ tclsh ~/tcl/wwwget.tcl www.bahn.de/img/agb.gif > t.gif
Beispiel: Digitaluhr in 6 Zeilen
proc every {ms body} {
eval $body
after $ms [list every $ms $body]
}
pack [label .clock -textvar time]
every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]}Zun�chst wird ein einfacher, aber wiederverwendbarer Timer, every, definiert, der den �bergebenen body (Tcl-Kommandos) ausf�hrt und anschlie�end veranla�t, da� er nach ms Millisekunden erneut aufge