Code: Select all
set a "word"
puts [string range $a 1 end]
Code: Select all
set a "word"
regsub {[^.]} $a "" a
puts $a
Code: Select all
set a "word"
set a [join [lrange [split $a {}] 1 end] ""]
puts $a
[tomekk@zonk]:~# ./zonk.tcl
ord
ord
ord
Code: Select all
http::geturl $url