如何将数据从2个文件存储到数组并比较tcl

Question

我是新人，仍在学习Tcl。

现在，我有2个文件有不同的数据，我想将它存储到数组中并进行比较，将两个文件之间的数据差异打印成一个新的文本文件。例如，file1.txt

1
2
3

虽然file2.txt有数据

2
4
5

比较并发现差异后，将其写入新的文本文件file3.txt。这就像

4
5

Answer 1

您可以使用来自Tcllib的struct::set包。将文件中的值读入列表

package require struct::set
::struct::set difference {2 4 5} {1 2 3}

然后写出结果。