egghelp/eggheads community

reading the number of directories in a given folder

2004-12-05T10:07:35-04:00

Code:

if [catch {set files [glob -directory $dir *]}]

you don't need to catch glob... use -nocomplain

Here's a dir counting proc that doesn't depend on external executables:

Code:

proc dirs {root} {set i 0foreach dir [glob -noc -typ d -dir $root *] {incr i [expr {1+[dirs $dir]}]}set i}

Statistics: Posted by user — Sun Dec 05, 2004 10:07 am

reading the number of directories in a given folder

2004-12-05T03:47:14-04:00

this will traverse the directory tree, executing $cmd on each file:

Code:

proc traverse {dir cmd} {  if [catch {set files [glob -directory $dir *]}] return  foreach f $files {    if [file isdirectory $f] {traverse $f $cmd}    $cmd $f  }}

Statistics: Posted by demond — Sun Dec 05, 2004 3:47 am

reading the number of directories in a given folder

2004-12-05T03:17:01-04:00

the above simply returns number of directories in the current tree

if you want to traverse the tree, use [glob] and [file] commands

Statistics: Posted by demond — Sun Dec 05, 2004 3:17 am

reading the number of directories in a given folder

2004-12-05T03:11:59-04:00

Code:

string trim [exec find . -type d | wc -l]

(assuming it's not a windrop)

Statistics: Posted by demond — Sun Dec 05, 2004 3:11 am

reading the number of directories in a given folder

2004-12-05T02:30:08-04:00

Hello World,

I have more or less just begun to work with tcl. After spending the past two weeks reading up on it and trying out all the neat features, I came up with some pretty nifty ideas for a tcl project (no the ideas aren’t relatively new).

But… (I bet you saw this one coming didn’t you?) I can’t seem to find out how to use tcl to read the number of directories in a given folder. I’m too tired to give a fancy example so let me whip up a quick doodle to illustrate (please keep the laughter to a minimal):

/area_51
-/out_there
--/moo
--/arf
--/meow

(note: the dash represents the directory depth)

Now suppose the given folder was /area_51/out_there/

What I am trying to do is figure out how I will able to use tcl to read this folder and display some kind of output similar to:

Soldier: I’m not at liberty to tell you that we have 3 sounds stored out there. $@#%. I just broke protocol... What am I going to do?! *lightbulb* I know!! I’ll pretend you didn’t hear me.

Now, the thing is, we don’t know the names of the directories in the given folder.

I’m assuming it’s possible to use some kind of wildmask? Actually at this point, I’m hoping it’s possible.

Q

Statistics: Posted by qzec — Sun Dec 05, 2004 2:30 am