TCL/TK - действия в консоли

#!/usr/bin/tclsh

# set var
set var "Test var"
# print var
puts "var=$var"
# print string
puts {var=$var}
# print list size
puts [llength $var]
# print string len
puts [string length $var]
# print second word from list
puts [lindex $var 1]

# function
proc sum {a1 a2} {
    global var
    return "$var [expr $a1+$a2]"
}

puts [sum 1 2]

# cycle and condition
for {set i 1} {$i<10} {incr i} {
    if {$i>0} {
        puts [sum $i 10]
    }
}

# namespace
set a "text1"
namespace eval N {
    variable a "text2"
}

puts $::a
puts $N::a

# files and regexp
set f [open testfile.txt r]
while {[gets $f line] >= 0} {
    regsub -all {\d} $line "X" line
    puts $line
}
close $f