` `在tcl腳本中調用shell的腳本，如下： ``` #!/usr/bin/tclsh #在tcl腳本中調用bash腳本 puts "" puts "××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××" puts "運行在tcl腳本中調用bash腳本，對應腳本為 example/useBashIntcl.tcl" puts "××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××" puts "下面將會調用 syahello.sh輸出hello，bash！到shelllog文件" exec bash sayhello.sh ;#使用exec調用shall腳本 puts "調用操作成功" puts "" ``` ``` #!/bin/bash echo "hello,bash"\>shelllog ``` 再看一個例子 test.sh ```bash shell腳本 #！/usr/bin/bash # test.sh n=0 x="*" while [ $n -lt 10 ] do echo "x" x=$x* n=`expr $n + 1` done ``` demo.tcl ```tcl Tcl/Tk腳本 demo.tcl #！/usr/bin/tclsh set ret [exec bash test.sh] puts $ret ``` 執行`tclsh demo.tcl`