tcl 文件重命名并在文件存在时捕获错误

Question

我是新手，我正在尝试将 .skip 扩展名附加到从 TCL 中的文件名列表中获取的一些文件中。如果已经存在具有 fileName.skip 的文件，我想捕捉错误，将我自己的消息放在屏幕上，然后继续下一个文件。这是我正在使用的代码：

set i 0
foreach fileName [glob -nocomplain -type f [file join $basedir *.wav]] {
    foreach line $fileData {
        if { [regexp $line $fileName] == 1 } {
            if { [catch {file rename $fileName "$fileName.skip"}] } {
                puts "Error skipping $fileName skipped file already exists"
                continue
            } else {
                puts "Skipping $fileName..."
                file rename [file join $basedir $fileName] [file join $basedir "$fileName.skip"]
                incr i
            }
        }
    }   
}

我的文件夹中有三个要测试的文件：

test21.wav
test21.wav.skip
test22.wav

此代码执行到重命名（或不重命名）文件的位置，然后将其打印到屏幕上：

Error skipping C:/xxx/test21.wav file already exists
Skipping C:/xxx/test22.wav...
error renaming "C:/xxx/test22.wav": no such file or directory
    while executing
"file rename $fileName "$fileName.skip""

我似乎无法弄清楚这个错误是关于什么的，因为脚本有效。是不是我错误地使用了catch？或者可能是别的什么......

提前感谢您的帮助！

Answer 1

你为什么不先看看它是否存在？

set i 0
foreach fileName [glob -nocomplain -type f [file join $basedir *.wav]] {
    foreach line $fileData {
        if {[regexp $line $fileName]} {
            if {[file exists "$fileName.skip"]} {
                puts "Error skipping $fileName -- skipped file already exists"
                continue
            } else {
                puts "Skipping $fileName..."
                set filepath [file join $basedir $fileName]
                file rename $filepath $filepath.skip
                incr i
            }
        }
    }   
}

由于 $fileData 似乎包含一个字符串列表，因此您不需要内部 foreach 循环。 lsearch 将在这里工作：

set i 0
foreach fileName [glob -nocomplain -type f [file join $basedir *.wav]] {
    if {[lsearch -regexp $fileData $fileName] != -1} {
        if {[file exists "$fileName.skip"]} {
            puts "Error skipping $fileName -- skipped file already exists"
        } else {
            puts "Skipping $fileName..."
            set filepath [file join $basedir $fileName]
            file rename $filepath $filepath.skip
            incr i
        }
    }
}

Answer 2

您两次重命名文件：一次在if 命令中，另一次在 else 块中。您不需要在 else 块中使用 file rename 命令。

catch 命令的工作方式是这样的：

1. 执行代码块
2. 执行失败返回1，执行成功返回0

因此，在您的上下文中：

set i 0
foreach fileName [glob -nocomplain -type f [file join $basedir *.wav]] {
    foreach line $fileData {
        if { [regexp $line $fileName] == 1 } {
            if { [catch {file rename $fileName "$fileName.skip"}] } {
                # Rename failed
                puts "Error skipping $fileName skipped file already exists"
            } else {
                # Renamed OK
                puts "Skipping $fileName..."
                incr i
            }
        }
    }   
}