如何使用tcl在文件中获取唯一字符串

Question

tcl编程的新功能。 我有一个包含相同字符串的文件：

Dog
Dog
Cat
Cat
Cat
Dog

我想获得像：

这样的唯一字符串

Dog
Cat

提前致谢

Answer 1

替代彼得的答案

set unique [lsort -unique $ss]

Answer 2

set ss {Dog Dog Cat Cat Cat Dog}
foreach s $ss {set unique($s) 1}
array names unique

文档：array，foreach，set