在linux中用tcl语言写一个脚本，内容是找到文件1和文件2中相同的带有MACRO 文字和END 文字的行

可以使用以下脚本实现：

#!/usr/bin/tclsh

set file1 [open "file1.txt" r]
set file2 [open "file2.txt" r]

while {[gets $file1 line1] != -1} {
    if {[regexp {MACRO.*END} $line1]} {
        seek $file2 0
        while {[gets $file2 line2] != -1} {
            if {[regexp {MACRO.*END} $line2]} {
                if {$line1 == $line2} {
                    puts $line1
                }
            }
        }
    }
}

close $file1
close $file2

其中，`file1.txt`和`file2.txt`是需要比较的两个文件。该脚本会逐行读取`file1.txt`中的内容，如果该行包含`MACRO`和`END`，则会在`file2.txt`中查找相同的行。如果找到相同的行，则会输出该行内容。最后关闭文件句柄。