CODEWITHSUNDEEP
listindexingforeachtcl
Kimi
Kimi

Reputation: 43

TCL list foreach

I have the following code: I want to add in the foreach loop to put out the name of the file too.

set outfile [open "out.tcl" w]
set allfiles "[glob /a/b/c/*.txt]"

   foreach files $allfiles {
           puts $outfile "{$files}"
   }

close $outfile

CURRENT OUTFILE WITH THE ABOVE CODE

/a/b/c/123_abc.txt
/a/b/c/2_34cbd.txt
/a/b/c/45_6def.txt
/a/b/c/ABC_2CD.txt
/a/b/c/2BC_AB2.txt
********

WHAT I WANTED AS MY FINAL OUTFILE

/a/b/c/123_abc.txt
123_abc
/a/b/c/2_34cbd.txt
2_34cbd
/a/b/c/45_6def.txt
45_6def
/a/b/c/ABC_2CD.txt
ABC_2CD
/a/b/c/2BC_AB2.txt
2BC_AB2

Upvotes: 0

Views: 298

Answers (1)

Shawn
Shawn

Reputation: 52344

You can get just the filename without leading path or file extension by combining file tail (which removes the leading path) and file rootname (Which removes the extension):

% set files /a/b/c/123_abc.txt
/a/b/c/123_abc.txt
% file tail $files
123_abc.txt
% file rootname $files
/a/b/c/123_abc
% file rootname [file tail $files]
123_abc

So...

set allfiles [glob /a/b/c/*.txt] ;# No quotes needed
foreach files $allfiles {
    puts $outfile $files
    puts $outfile [file rootname [file tail $files]]
}

Upvotes: 2

Related Questions