使用Tcl检查列表中的多个文件

Question

我有一个包含* .ini文件的目录（带子目录）。我可以阅读文件并创建了一个列表。

我想知道/正在努力找出如何在列表中检查存在/计数多个同名文件。

我想知道是否有人可以提出建议

提前致谢。

即。检查Myfile.ini是否出现多次。

set fcheck "Myfile.ini"
for {set a 0} {$a < [llength $flist]} {incr a} {

set count [lsearch -glob $flist $fcheck ]

}

Answer 1

查找列表中每个项目出现次数的简单方法是使用关联数组（数组freq需要取消设置或为空）。

foreach item $list {
    incr freq($item)
}

parray命令可用于打印生成的频率表：parray freq。

如果您只想查看哪些元素出现多次：

foreach {key val} [array get freq] {
    if {$val > 1} {
        puts "$key: $val"
    }
}

要查看元素“foo”出现的频率：

puts $freq(foo)

文档： > (operator)， array， foreach， if， incr， parray， puts