有时候，当我孤独地坐着等待生命大门关闭时，一种与世隔绝的感觉就会像冷雾一样笼罩着我。远处有光明、音乐和友谊，但我进不去，命运之神无情地挡住了大门。我真想义正词严地提出抗议，因为我的心仍然充满了热情。但是那些酸楚而无益的话语流溢在唇边，欲言又止，犹如泪水往肚里流，沉默浸透了我的灵魂。然后，希望之神微笑着走来对我轻轻耳语说：“忘我就是快乐。”因而我要把别人眼睛所看见的光明当作我的太阳，别人耳朵所听见的音乐当作我的乐曲，别人嘴角的微笑当作我的快乐。
TCL语言
上一篇 /
下一篇 2009-07-22 10:51:34
/ 个人分类：C语言
tcl 一直存在的问题是：很少用，没有编过程序。这样产生的问题呢就是：看不懂，而且不会自己写。
所以：
1 在网站上看tcl脚本，结合理论进行理解。
2 自己试着编编，就熟悉了。
从网站上看了这位的脚本，确实是自己编写的，就细细分析下好了！
http://blog.chinaunix.net/u2/82392/article_97213.html
1.SSH到linux主机上查看linux内核版本号
#!/usr/expect/bin/expect
set HOSTIP [lindex $argv 0]
set LOGIN [lindex $argv 1]
set PASS [lindex $argv 2]
set timeout 1
set cmd {uname -a}
if {$argc<3} {
puts stderr "Usage:$argv0 hostip login password.\n"
exit 1
}
send_user "argv0: $argv0\n"
send_user "argv: $argv\n "
spawn ssh $LOGIN@$HOSTIP
expect_after eof { exit 0 }
expect "yes/no" { send "yes\r" }
expect "password:" { send "$PASS\r" }
expect "#"
send "$cmd\r"
expect "*\r"
send "exit\r"
其中，expect 和send ，spawn在tcl 中没有找到。
收藏
举报
TAG:
