如何在tcl中中断loop循环

while {condition} {
    # 循环体代码
    
    if {需要中断循环的条件} {
        break
    }
    
    # 循环体代码继续执行
}

outer_loop: while {condition1} {
    # 外层循环体代码
    
    while {condition2} {
        # 内层循环体代码
        
        if {需要中断内层循环的条件} {
            break
        }
        
        # 内层循环体代码继续执行
    }
    
    if {需要中断外层循环的条件} {
        break outer_loop
    }
    
    # 外层循环体代码继续执行
}