使用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)"
}
