tcl脚本得到两个列表中一致的元素

以下是一个示例tcl脚本，用于获取两个列表中相同的元素：

set list1 {a b c d e}
set list2 {c d e f g}

set common_elements {}

foreach item $list1 {
  if {[lsearch $list2 $item] != -1} {
    lappend common_elements $item
  }
}

puts "Common elements: $common_elements"

在上面的脚本中，我们定义了两个列表list1和list2，并创建了一个空列表common_elements用于存储相同的元素。

然后，我们使用foreach循环遍历list1中的每个元素，并使用lsearch命令来查找该元素是否在list2中出现。如果元素存在于list2中，则将其添加到common_elements列表中。

最后，我们使用puts命令输出common_elements列表中的相同元素。

在上面的示例中，输出将是“Common elements: c d e”。