合并tcl中两个字符串的相同部分

# 定义两个字符串
set str1 "Hello World"
set str2 "Hello Tcl"

# 初始化结果字符串
set result ""

# 获取两个字符串的长度
set len1 [string length $str1]
set len2 [string length $str2]

# 获取较短字符串的长度
set minLen [expr {$len1 < $len2 ? $len1 : $len2}]

# 循环比较两个字符串的字符
for {set i 0} {$i < $minLen} {incr i} {
    # 获取当前位置的字符
    set char1 [string index $str1 $i]
    set char2 [string index $str2 $i]
    
    # 判断字符是否相同
    if {$char1 eq $char2} {
        # 相同则添加到结果字符串中
        append result $char1
    } else {
        # 不相同则跳出循环
        break
    }
}

# 输出结果字符串
puts "合并的相同部分为：$result"