Loops tcl中读取文件的foreach命令

我在一个目录中有6个文件

A.v

，

A.def

，

B.v

，

B.def

，

C.v

，

C.def

我想立即读取

A.v

和

A.def

文件，然后转到

B.v

和

B.def

等等。我使用下面的代码片段来执行上述函数，但它会抛出错误

foreach i [glob "./*.v"] {
    read_verilog $i.v
    read_def $i.def
}

我想将变量设置为仅读取名称A、B、C等。

您想在此处使用命令：

foreach file [glob -nocomplain "./*.v"] {
    read_verilog $file
    read_def [file rootname $file].def
}