tcl如何判断一个变量定义了没有

blackspace

UID: 232
帖子: 1
积分: 2
在线时间: 10 分钟

1^# blackspace 发表于 2008-11-19 17:40

tcl如何判断一个变量定义了没有

proc expect_prompt {} {
variable hostname
if {$hostname没有定义} then {
puts "your should configure hostname"
exit 1;
}
expect "$hostname:*\$"
}　　　　　　

blackspace

UID: 232
帖子: 1
积分: 2
在线时间: 10 分钟

2^# blackspace 发表于 2008-11-19 17:50

info exists varName
Returns 1 if the variable named varName exists in the current context (either as a global or local variable) and has been defined by being given a value, returns 0 otherwise.　　　　　　

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

3^# dearvoid 发表于 2008-11-19 18:21

info exists varName 写起来很烦人的, 俺喜欢把他定义成一个函数, 比如叫 defined:

复制内容到剪贴板

代码:

if [defined var] {
...
}

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

4^# dearvoid 发表于 2008-11-19 18:22

bs 怎么又开始用 tcl/expect 了? bash/shell 学完了不成?

blackspace

UID: 232
帖子: 1
积分: 2
在线时间: 10 分钟

5^# blackspace 发表于 2008-11-19 19:37

像你这样的shell 印度巫师平时都用不上我还非那个劲。

shell＋awk＋sed都学了。　　　　　　

43368687

UID: 14044
帖子: 142
积分: 326
在线时间: 1 天 3 小时

6^# 43368687 发表于 2008-11-21 01:15

[ -z "$hostname"] 或是test -z "$hostname"不是很好用的吗？　　　　　　

dearvoid

UID: 41384
帖子: 4
积分: 9
在线时间: 10 分钟

7^# dearvoid 发表于 2008-11-21 09:49

引用:

原帖由 43368687 于 2008-11-21 01:15 发表
[ -z "$hostname"] 或是test -z "$hostname"不是很好用的吗？

跑题了哈