请问:怎么用tcl脚本语言编写一个统计文件个数的程序???
比方说我 d:\temp目录下有5个.txt文件,6个.exe文件,7个.doc文件.
我要用tcl编写程序:
首先统计总共有18个文件.
分别为:5个.txt
6个.ext
7个.doc
[解决办法]
我勉强写一下吧：
set path ". "
set files [glob "$path/* "]
set total 0
set txt 0
set exe 0
set doc 0
foreach f $files {
if {[file isfile $f]} {
set total [expr $total + 1]
if {[string match *.txt $f]} {
set txt [expr $txt + 1]
}
if {[string match *.exe $f]} {
set exe [expr $exe + 1]
}
if {[string match *.doc $f]} {
set doc [expr $doc + 1]
}
}
}
puts stdout "共 $total 个文件\n "
puts stdout "$txt 个txt\n "
puts stdout "$exe 个exe\n "
puts stdout "$doc 个doc\n "
