TCL поиск конкретного файла по c:/

Question

Я хочу найти после кода, который ищет файл hw.exe на моем hdd.

я нашел этот следующий код:

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" 

ли кто-нибудь один идея, чтобы исправить это? Или есть функция?

Answer 1

fileutil package в Tcllib имеет возможность, которую вы ищете, при условии, что вы написали правильный фильтр. Затем можно найти самый большой файл по возвращенному списку, который должен быть намного меньше, чем список всех файлов на диске!

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"