[Tcl-Threads] How to compare file extension

[Woei C. J. K. <jas...@gm...>]

Hi

i am beginner in tcl. I have no idea how to compare the file extension. I
have written a simple script. However, it doesn't work. Pls advice. Thanks

set source_file "[glob *.v *.sv *.vhd]"
foreach i $source_file {
if {$i == *.v} {
puts "it is correct format file: $i"
} else {
puts "it is incorrect format file: $i"
}
}