使用expect 讀取外部資料存成陣列
#!/usr/bin/expect # 設定檔案路徑 set filename "data.txt" # 開啟檔案 set fp [open $filename r] # 初始化陣列與索引 set index 0 array set lines {} # 逐行讀取檔案 while {[gets $fp line] >= 0} { set lines($index) $line incr index } # 關閉檔案 close $fp # 測試輸出:列印所有陣列內容 foreach key [array names lines] { puts "Line $key: $lines($key)" }