在linux中用tcl语言写一个脚本，内容是找到两个文件中macro相同的行，然后写入一个新的文件中

可以尝试以下脚本：

set file1 [open "file1.txt" r]
set file2 [open "file2.txt" r]
set outfile [open "output.txt" w]

set macro1 [split [read $file1] "\n"]
set macro2 [split [read $file2] "\n"]

foreach line1 $macro1 {
    foreach line2 $macro2 {
        if {$line1 == $line2} {
            puts $outfile $line1
        }
    }
}

close $file1
close $file2
close $outfile

这个脚本会打开两个文件和一个输出文件，然后把文件中的每一行按照换行符分割成字符串列表。接着，它会使用两个嵌套的循环，遍历所有的行，比较它们是否相等。如果找到了相同的行，就把它写入输出文件中。最后，关闭所有的文件句柄。