Скопировать имя файла (с подстановочным знаком) в tcl

Question

Я пытаюсь скопировать файл, используя подстановочный знак, и он неправильно интерпретируется.

set projName [lindex $argv 0]
puts "$projName chosen"

set sysdefPath "$projName/$projName.runs/impl_1/*.sysdef"
file copy -force $sysdefPath ./src/generatedFiles/$projName.hdf

Я попробовал несколько вариантов этого, но ни один не работал {*}, (*), [*], {.*}. Результат этого помещает подстановочный знак (*) в путь поиска вместо попытки сопоставить его с шаблоном.

Как правильно это сделать?

Выход,

$ test.tcl -tclargs proj
# set projName [lindex $argv 0]
# puts "$projName chosen"
proj chosen
# set sysdefPath "$projName/$projName.runs/impl_1/*.sysdef"
# file copy -force $sysdefPath ./src/generatedFiles/$projName.hdf
error copying "proj/proj.runs/impl_1/*.sysdef": no such file or directory
    while executing
"file copy -force $sysdefPath ./src/generatedFiles/$projName.hdf"
    (file "./src/projTcls/build_bitstream.tcl" line 5)

Answer 1

Ваша оболочка будет расширять шаблоны файлов, где бы они их ни находили. Tcl не такой: вы должны явно запросить список файлов, соответствующих шаблону, используя glob команда: не проверено

set pattern $projName/$projName.runs/impl_1/*.sysdef
set sysdefPaths [glob -nocomplain -- $pattern]
switch -exact [llength $sysdefPaths] {
    0 {error "No files match $pattern"}
    1 {file copy -force [lindex $sysdefPaths 0] ./src/generatedFiles/$projName.hdf}
    default {error "Multiple files match $pattern: [list $sysdefPaths]"}
}