tcl参数个数问题 [搞定]

小锁

tcl也可以从命令行读取参数，用lindex调用各个参数，我在处理expect的spawn的时候，因为参数的个数可变，并且spawn用的是exec调用，所以

1. 
   
2. spawn myapp [lindex $argv 1] [lindex $argv 2] ......
   

复制代码

或者

1. 
   
2. spawn myapp [lrange $argv 1 $argc]
   

复制代码

都不能，不知道这里有没有tcl比较精通的，能够帮在下解决这个问题
小弟先行谢过！

yongjian

set user [lindex $argv 0]
set param [lrange $argv 0 3]
send_user "$user the username\n"
send_user "$param is the params\n"
lrange 和lindex都是0开始的。我也是学了一些皮毛，不知是否对你的问题有帮助。

小锁

呵呵，从零开始我是知道的，我的问题不是这里，而是如何将各个参数分开来，如果是lindex因为参数个数可变不能确定需要写几个，用lrange吧，spawn会将整个当作一个参数传给命令，如果用system调用又不知道如何获得PID，不能进行交互，哎！

yongjian

hmmm....用for loop 试试看行不行...

小锁

谢谢大家，通过我的另外的一个帖子
获得灵感用eval解决了问题
再次谢谢大家了
这是我写的小脚本，见笑了
http://www.linuxsir.cn/bbs/showt ... d=962701#post962701

yongjian

不错. 非常支持! TCL/Expect 是解决伪终端问题的良方.