Posted to tcl by kostix at Sun Nov 09 00:23:23 GMT 2008view raw

  1. proc scan_dir {dirname pattern} {
  2. set out [list]
  3. foreach d [glob -type d -nocomplain -dir $dirname *] {
  4. set out [concat $out [scan_dir $d $pattern]]
  5. }
  6. concat $out [glob -type f -nocomplain -dir $dirname $pattern]
  7. }
  8.  
  9. puts [scan_dir ~ *oo*]