Tclwise is a Tcl book with (currently) the first nine chapters online for free.
The author is [Salvatore Sanfilippo].

The book can be read at http://www.invece.org/tclwise/