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