#!/usr/bin/tclsh # (find-angg ".zshrc" "makeindexhtmls") puts puts
set lines [split [exec ls -laF | col -x] "\n"] # set total [lindex $lines 0] # puts $total regexp {^(.* )([^ ]*)} [lindex $lines 1] -> left right regsub -all . $left . left set myre "^($left)(\[^ */=@|\]*)(.*)" foreach line [lrange $lines 1 end] { regexp $myre $line -> left name right puts "$left$name$right" } putsputs puts