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

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

Dog Dog Cat Cat Cat Dog 狗 狗 猫 猫 猫 狗 我想得到唯一的字符串，如：

Dog Cat 狗 猫 提前谢谢

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

文件：

---

文档：，

作为Peter答案的替代方案

set unique [lsort -unique $ss]

---

作为彼得回答的替代方案

set unique [lsort -unique $ss]

---

您可以使用

set fh[打开您的.r文件]创建列表；设置ss[split[read-nonewline$fh]\n]；关闭$fh

，您可以使用

设置fh[打开您的.r文件]创建列表；设置ss[split[read-nonewline$fh]\n]；关闭$fh

那就更好了，只要你有Tcl 8.3或更高版本。这可能并不排除很多Tcl用户；）如果您使用的是Tcl 8.3或更高版本，那就更好了。这可能并不排除很多Tcl用户；）