Tcl等效於UNIX「cp -pL」命令

Question

什麼是Tcl等效的UNIX「cp -pL」命令？ 我找不到它file command描述

Answer 1

對於單個文件： a）獲取文件的真實路徑。 b）複製它。 c）設置屬性，修改時間和訪問時間。

不幸的是，似乎沒有任何方法來設置更改時間（在Windows上創建時間）。

set fn sourcefn 
set tofn targetfn 
set nfn [file normalize [file readlink $fn]] 
file copy -force $nfn $tofn 
foreach {key} [list attributes mtime atime] { 
    set temp [file $key $nfn] 
    file $key $tofn {*}$temp 
} 

這是純粹的Tcl解決方案，可以在unix，Mac OS X和Windows上運行。當然，你可能只是這樣做：

exec cp -pLf $from $to 

參考文獻：file