TCLで特定のファイルを見つける：/

Question

hdd上のhw.exeというファイルを検索するコードの後ろで検索したい。私はこの次のコードを発見した

：

set files [glob hw.exe] 
    set sofar -1 

    foreach f $files { 
      set size [file size $f] 
      if {$size > $sofar} { 
        set sofar $size 
        set name $f 
        } 
      } 

    puts "Biggest files is $name at $sofar bytes" 

はこれを修正するために誰でも1つのアイデアを持って？それとも機能はありますか？

Answer 1

Tcllibのfileutil packageには、適切なフィルタを作成すれば、探している機能があります。最大のファイルを見つけることは、返されるリスト上で行うことができます。これは、ドライブ上のすべてのファイルのリストよりはるかに小さいはずです！

package require fileutil 

proc filter {name} { 
    return [string match hw.exe $name] 
} 
set hwlist [fileutil::find C:/ filter] 

set sofar -1 
set name "" 
foreach f $hwlist { 
    set size [file size $f] 
    if {$size > $sofar} { 
     set name $f 
     set sofar $size 
    } 
} 
puts "Found $name of size $sofar"