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!";
    }   
}