tcl 一个文件内的行去匹配另一个文件的行，匹配上输出对应的行

在Tcl语言中，可以通过编写脚本来实现一个文件内的行与另一个文件的行进行匹配，并输出匹配上的行。以下是一个简单的示例，展示了如何使用Tcl脚本来完成这个任务：

1. 首先，打开包含待匹配行的文件，读取每一行，并将它们存储在一个列表中。
2. 然后，打开需要匹配的目标文件，逐行读取。
3. 对于目标文件中的每一行，检查它是否存在于之前创建的列表中。
4. 如果存在，输出该行。

下面是一个简单的Tcl脚本示例：

# 打开第一个文件，读取所有行到列表中
set file1 [open "file1.txt" r]
set lines1 [split [read $file1] "\n"]
close $file1

# 打开第二个文件进行逐行读取和匹配
set file2 [open "file2.txt" r]
while {[gets $file2 line] >= 0} {
    # 检查line是否在lines1列表中
    if {[lsearch -exact $lines1 $line] >= 0} {
        # 匹配成功，输出该行
        puts $line
    }
}
close $file2

在这个脚本中，`file1.txt` 是包含待匹配行的文件，而 `file2.txt` 是需要与之匹配的目标文件。脚本首先读取 `file1.txt` 中的所有行，并将它们存储在 `lines1` 列表中。然后脚本打开 `file2.txt` 并逐行读取，使用 `lsearch` 函数检查每一行是否在 `lines1` 列表中出现过。如果出现，那么该行将被输出。