遍历文件夹搜索文件时为什么相同的文件会出现多次

B-elial

我用下面的代码遍历文件夹“zhu”，搜索其中所有的.v文件并返回路径，为什么相同的文件会被多次返回。代码：
set dirpath "/home/klin/zhu"
cd $dirpath
pwd
set resultfile "/home/klin/Desktop/test/result.tcl"

if { [catch {set result [open $resultfile w+]} err] } {
   puts $err
   exit
}

proc FindFile { myDir result } {
   if {[catch {cd $myDir} err]} {
      puts $result $err
      return
   }

   foreach myfile [glob -nocomplain *] {
      cd $myDir
      if {[string equal $myfile ""]} {
        return
      }

      if {[file isdirectory $myfile]} {
        set fullfile [file join $myDir $myfile]
        FindFile $fullfile $result
      } else {
      foreach filename [glob -nocomplain *Netlist.v*] {
        set fileresult [file join $myDir $filename]
        set resultlist [format "read_file -format verilog %s" $fileresult]
        puts $result $resultlist
        }
      }
   }
}

FindFile $dirpath $result

close $result

而得到的结果却是：
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/RISC/RTL/RISC_SPM_Netlist.v
read_file -format verilog /home/klin/zhu/RISC/RTL/RISC_SPM_Netlist.v
read_file -format verilog /home/klin/zhu/RISC/RTL/RISC_SPM_Netlist.v
read_file -format verilog /home/klin/zhu/RISC/RTL/RISC_SPM_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v
read_file -format verilog /home/klin/zhu/LFSR_Netlist.v