帮我用TCL语言写一个获取文件夹下不带“csv”的文件名的脚本

我可以用TCL语言给你写一个脚本，用于获取文件夹下不带“csv”的文件名。 代码如下：set files [glob -nocomplain -tails -directory [lindex $argv 0] *]
set result ""
foreach file $files {
if {[string first ".csv" $file] < 0} {
lappend result [file tail $file]
}
}
puts $result