フォルダ内を再帰的に検索

proc globRecursive {dir masks} {
  set result [list]
  foreach cur [lsort [glob -nocomplain -dir $dir *]] {
    if {[file type $cur] == "directory"} {
      eval lappend result [globRecursive $cur $masks]
    } else {
      foreach mask $masks {
        if {[string match $mask $cur]} {
          lappend result $cur
          break
        }
      }
    }
  }
  return $result
}

proc globRecursive {dir masks} { set result [list] foreach cur [lsort [glob -nocomplain -dir $dir *]] { if {[file type $cur] == "directory"} { eval lappend result [globRecursive $cur $masks] } else { foreach mask $masks { if {[string match $mask $cur]} { lappend result $cur break } } } } return $result }