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'。