Suppose pwd=/home/user/work/wip1
How to output the "pwd string" into 5 chunks?
/home/user/work/wip1
/home/user/work
/home/user
/home
/
I'm new to tcl, here's how I did it.
set pwd [pwd]
set y [split $pwd "/"]
puts $pwd
puts "/[lindex $y 1]/[lindex $y 2]/[lindex $y 3]"
puts "/[lindex $y 1]/[lindex $y 2]"
puts "/[lindex $y 1]"
puts "/"