利用Tcl的http套件將網路上的圖片抓下來

一個簡單的範例

# 載入http套件
package require http

# http::geturl會回傳一個token，這個token其實是一個流水號的陣列
set token [http::geturl http://l.yimg.com/tw.yimg.com/i/tw/hp/spirit/yahoo_logo.gif]

# 開啟一個檔案
set f [open yahoo_logo.gif w]

# 設定檔案用二進制的方式處理
fconfigure $f -translation binary

# 將剛剛圖片的內容放入檔案中
puts -nonewline $f [http::data $token]

# 關閉檔案
close $f

這樣就會產生一個叫yahoo_logo.gif的檔案在執行路徑下了