2011年4月26日
find the bigest file in a directory tcl tk
摘要： set files [glob *]set sofar -1foreach f $files {set size [file size $f]if {$size > $sofar} {set sofar $sizeset name $f}}puts "Biggest files is $name at $sofar bytes" 阅读全文
posted @ 2011-04-26 08:33 greencolor 阅读(136) 评论(0) 推荐(0) 编辑