remove file path and extension in Tcl command

Question

say the file path is saved as an variable f

puts "$f"

Then outcome is

/home/usr/testfile.txt

I want to remove everything but the name, 'testfile' and save it in a new variable.

Answer 1

The file command is what you want.

 set fbasename [file rootname [file tail $f]]

file tail is the last component of the filename. file rootname is everything excepting the extension.