Question

我有以下程序：

proc show_information {args} {
set mandatory_args {
        -tftp_server
        -device ANY
        -interface ANY

}
set optional_args {
        -vlan ANY

}

parse_dashed_args -args $args -optional_args $optional_args -mandatory_args $mandatory_args

log -info "Logged in device is: $device"
log -info "Executing proc to get all data"
set commands {
              "show mpls ldp neighbor"
              "show mpls discovery vpn"
              "show mpls interface"
              "show mpls ip binding"
              "show running-config"
              "show policy-map interface $intr vlan $vlan input"
              "show run interface $intr
            }

foreach command $commands {
    set show [$device exec $command]
    ats_log -info $show

  }
 }

我是tcl的新手，想知道如果我们传递错误的参数或错误输出我们怎么能处理错误。有点像python try *（执行proc）和除了*（在失败的情况下打印一些msg）。

经过一些谷歌搜索“捕获”是TCL中使用的，但无法弄清楚如何使用它。

Answer 1

catch命令运行脚本并捕获其中的任何失败。该命令的结果实际上是一个描述错误是否发生的布尔值（它实际上是一个结果代码，但是0表示成功，1表示错误;还有一些其他但你通常不会遇到它们）。您还可以给出一个变量，其中放置了“结果”，这是成功时的正常结果和失败时的错误消息。

set code [catch {
    DoSomethingThat mightFail here
} result]

if {$code == 0} {
    puts "Result was $result"
} elseif {$code == 1} {
    puts "Error happened with message: $result"
} else {
    # Consult the manual for the other cases if you care
    puts "Code: $code\nResult:$result"
}

在许多简单的情况下，您可以将其缩短为：

if {[catch {
    DoSomethingThat mightFail here
} result]} {
    # Handle the error
} else {
    # Use the result
}

Tcl 8.6添加了一个用于处理错误的新命令。 try命令更像是你习惯使用的Python：

try {
    DoSomethingThat mightFail here
} on error {msg} {
    # Handle the error
}

它还支持finally和trap子句，分别用于保证操作和更复杂的错误处理。例如（使用catch编写令人讨厌的事情）：

try {
    DoSomethingThat mightFail here
} trap POSIX {msg} {
    # Handle an error from the operating system
}

TCL中的错误处理

1 个答案: