tcl脚本解析命令行参数、switch case范例

该死的脚本浪费了我1个小时的时间、注意该死的空格问题！！！

#!/usr/bin/expect -f

set arg [lindex $argv 0];

puts "arg = $arg ";

switch $arg {

1 {

spawn scp ErJi@192.168.1.25:/Users/ErJi/zhaodj/PlatFormManager.cpp ../Classes/;

expect "Password:";

send "asdfasdf\r";

interact;

spawn scp ErJi@192.168.1.25:/Users/ErJi/zhaodj/jni/hellocpp/*.* jni/hellocpp/;

expect "Password:";

send "asdfasdf\r";

interact;

}

2 {

spawn scp ./libs/armeabi/libgame.so ErJi@192.168.1.25:/Users/ErJi/zhaodj/libs/armeabi/

expect "Password:;"

send "asdfasfd";

interact

}

default {

puts "do nothing!";

}

}