【原创】shell内嵌tcl

xiaopan3322

    写这段脚本的起因，是因为下面这段内嵌的tcl会起一个sub-shell，但是我又不想用两个脚本来实现，所以我就想着用shell内嵌tcl的方法，没想到，还真的可以。
    已经知道这种用法的请一笑而过，不知道的，大家互相学习：

1. #!/bin/bash
   
2. #set -x
   
3. ### Download baseline of SCs from dimension
   
4. # version 1.0: created on 2010-06-1 by Bob
   
5. 
   
6. 
   
7. 
   
8. #----------------------------------------
   
9. #function: Setsee first, then download baseline, nested by tcl
   
10. #parameters: $1 --- SC baseline
    
11. #tips: execute tcl in shell, by using EOD, chmod firstly, execute secondly
    
12. #----------------------------------------
    
13. # {{{down_baseline_from_dim
    
14. function down_baseline_from_dim()
    
15. {
    
16.         local sc_baseline=$1
    
17. 
    
18.         cat > /tmp/scratch << EOD
    
19.         #!/usr/bin/expect --
    
20. 
    
21.         set timeout -1
    
22. 
    
23.         #set sc_baseline [lindex $argv 0]
    
24.         spawn /opt/bin/setsee LINSEE_BTS_2.1.0
    
25. 
    
26.         expect {
    
27.             "OK, tdlteman. Your environment has been set." {
    
28.             send_user "Set environment successfully!\n"
    
29.             expect "tdlteman@"
    
30.             send "/bts_gmps_hz/basics/Tools/Build/bin/LTE -c /bts_gmps_hz/Build_Tools/ltebuild/env/cfg_BL_download download $sc_baseline\r"
    
31.         }
    
32. 
    
33.                         eof {
    
34.             send_user "Set environment failed!\n"
    
35.             exit 1
    
36.                         }
    
37.         }
    
38. 
    
39.         #expect eof
    
40.         expect "tdlteman@"
    
41.         send "exit\r"
    
42.         #send "\003"
    
43.         #interact
    
44. EOD
    
45.         chmod 700 /tmp/scratch
    
46.         /usr/bin/expect /tmp/scratch
    
47. }
    
48. #--------------------------------------------------------------------------------
    
49. # }}}
    
50. 
    
51. 
    
52. 
    
53. #----------------------------------------
    
54. # {{{main
    
55. source /bts_gmps_hz/Build_Tools/ltebuild/etc/build.conf
    
56. label=$1
    
57. sc=$2
    
58. if [ "x$sc" = "x" ]; then
    
59.         sc=BTSOM
    
60. fi
    
61. 
    
62. case $sc in
    
63.         BTSOM)
    
64.                 echo -e "\n***************************************************"
    
65.                 echo "Process config file, replace BTSOM baseline: $label"
    
66.                 sed -i "s/LNT[0-9].0_OM_.*$/$label/" $BASIC_DIR/env/cfg_BL_download || exit 1
    
67.                 grep "BTSOM" $BASIC_DIR/env/cfg_BL_download
    
68.                 echo "Done"
    
69.                 echo -e "\n***************************************************"
    
70.                 echo "Download this baseline"
    
71.                 down_baseline_from_dim $label
    
72.                 #/usr/bin/expect /bts_gmps_hz/Build_Tools/ltebuild/bin/test $label
    
73.                 #exit 0
    
74.                 ;;
    
75.         *)
    
76.                 echo "Don't match"
    
77.                 exit 1
    
78.                 ;;
    
79. esac
    

复制代码

这段代码的精华在于下面这两段：
        cat > /tmp/scratch << EOD
        #!/usr/bin/expect --
和
EOD
        chmod 700 /tmp/scratch
        /usr/bin/expect /tmp/scratch

finechore

俺太浅薄了。
介这有啥实际中作用，哪个解释下，比如啥时候用得到？

xiaopan3322

俺太浅薄了。
介这有啥实际中作用，哪个解释下，比如啥时候用得到？
finechore 发表于 2010-12-10 11:23

    好比你要ssh到另外一台机器上去做一些事情，但是private key又不给添加，只能输用户名和密码，这个时候你不能指望一个简单的ssh user@machine “ command ”来实现，更不想用两个脚本来实现，这时候这种内嵌的功能就可以帮到你……

L_kernel

留着后面用。