Posted to tcl by cjo at Mon Sep 11 15:14:27 GMT 2017view raw

  1. apply {{} {
  2. time {
  3. lmap f [glob -tails -directory /usr/lib *] {
  4. if {[file type [file join /usr/lib $f]] eq "link"} continue
  5. string range [file tail $f] 0 2
  6. }
  7. } 200
  8. }}