tcl腳本嵌入
set srcfile myres.res
set dstfile dtest.txt
if {[catch {open $srcfile r} res]} {
puts "Failed to open the source file: $srcfile; $res"
return 0
}
set hSrc $res
if {[catch {open $dstfile w+} res]} {
puts "Failed to open the destination file: $dstfile; $res"
return 0
}
set hDst $res
foreach line [split [read $hSrc] \n] {
if {[regexp {rdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} {
puts $hDst "Rise Delay is $sub1"
}
if {[regexp {fdly=(.*)targ=(.*)trig=(.*)} $line match sub1]} {
puts $hDst "Fall Delay is $sub1"
}
}
close $hSrc
close $hDst
『貳』 tcl腳本怎樣嵌入c-shell腳本
假定你的 c shell 腳本名字是 a.sh，且具有可執行許可權，則可以在 tcl 中用
exec /path/to/a.sh
來執行
『叄』 請教前輩一下，如何在TCL腳本中，嵌套調用perl
windows下的腳本
tcl 腳本位於d:/temp/000.tcl：set a 100
puts $a
perl 腳本： $a= system "d:/temp/000.tcl";
print $a;
『肆』 什麼是tcl腳本，簡單分析一下
Tcl(最早稱為「工具命令語言」"Tool Command Language", 但是目前已經不是這個含義，不過我們仍然稱呼它為TCL)是一種腳本語言。 由John Ousterhout創建。 TCL經常被用於 快速原型開發,腳本編程，GUI和測試等方面。
Tcl的特性包括:
* 任何東西都是一條命令，包括語法結構(for, if等)。
* 任何事物都可以重新定義和重載。
* 所有的數據類型都可以看作字元串。
* 語法規則相當簡單
* 提供事件驅動給Socket和文件。基於時間或者用戶定義的事件也可以。
* 動態的域定義。
* 很容易用C,C++,或者Java擴展。
*解釋語言，代碼能夠動態的改變。
* 完全的Unicode支持。
* 平台無關。Win32,UNIX,Mac上都可以跑。
* 和Windows的GUI緊密集成;Tk
* 代碼緊湊，易於維護。
TCL本身不提供面向對象的支持。但是語言本身很容易擴展到支持面向對象。許多C語言擴展都提供面向對象能力，包括XOTcl,Incr Tcl等。另外SNIT擴展本身就是用TCL寫的。
使用最廣泛的TCL擴展是TK。 TK提供了各種OS平台下的圖形用戶界面GUI。連強大的Python語言都不單獨提供自己的GUI，而是提供介面適配到TK上。另一個流行的擴展包是Expect. Expect提供了通過終端自動執行命令的能力，例如(passwd,ftp,telnet等命令驅動的外殼).
『伍』 tcl腳本怎樣退出
tcl腳本按返回鍵退出，TCL（ Tool Command Language） 是一種解釋執行的腳本語言（ Scripting Language） ,它提供了通用的編程能力：支持變數、過程和控制結構；同時TCL還擁有一個功能強大的固有的核心命令集。TCL經常被用於快速原型開發，腳本編程，GUI和測試等方面。
• 實際上包含了兩個部分：一個語言和一個庫。首先，Tcl是一種簡單的腳本語言，主要使用於發布命令給一些互交程序如文本編輯器、調試器和shell。由於TCL的解釋器是用C\C++語言的過程庫實現的，因此在某種意義上我們又可以把TCL看作C庫，這個庫中有豐富的用於擴展TCL命令的C\C++過程和函數，所以，Tcl是一個庫包，可以被嵌入應用程序，Tcl的庫包含了一個分析器、用於執行內建命令的常式和可以使你擴充（定義新的過程）的庫函數。每個應用程序都可以根據自己的需要對TCL語言進行擴展。
• 擴展後的TCL語言將可以繼承TCL核心部分的所有功能，包括核心命令、控制結構、數據類型、對過程的支持等；TCL良好的可擴展性使得它能很好地適應產品測試的需要，目前已成為自動測試中事實上的標准。
一個TCL腳本可以包含一個或多個命令。命令之間必須用換行符或分號隔開，。