alfabet

Post by **caesar** » Fri Jan 17, 2003 3:19 am

As I have seen on the TCL manual (http://tcl.activestate.com/man/tcl8.2.3/TclCmd/file.htm) I have found the "file size name" to get the size of a file and "file mtime name" for the last modified thing. Will this two work also for the dirs or only for files?

Also I have found some other nice things I can do with the file thing and I haven't thinked about using them on the web page generation. Neat..

Post by **caesar** » Fri Jan 17, 2003 4:21 am

As I have tested and seen with:

bind dcc n tmp task:tmp

proc task:tmp { hand idx arg } {
global db
set file "pub/"
putlog "Size: [file size $file]"
}

the size works only for files. Seems that I have to get the size of all the files and then to add them to a variable and finaly that variable represends the size of the dir. Is there any other way to seee the dir's size? My alternative is bit messy but what a hell.. If there is no other I must do so.. Ce la vie..

As for the "file mtime name" I have noticed that works for a dir. The only thing that I'm confused with is that I'm getting a result like this: 1042649520. How to make it look like eg. January 17, 2003?

ppslim · Post by **ppslim** » Fri Jan 17, 2003 6:09 am

Code: Select all

proc filefullsize {dir} {
  if {![file exists $dir]} { error "No such directory exists" }
  set c 0
  foreach a [glob -type f $dir] {
    incr c [file size $a]
  }
  return $c
}

Use the abov function like so.

Code: Select all

set directory "/file/audio/"
set filesizes [filefullsize $directory]

Post by **caesar** » Fri Jan 17, 2003 6:27 am

bind dcc n tmp task:tmp

proc task:tmp { hand idx arg } {
global db
set dir "files"
set c 0
foreach a [glob -type f $dir] {
incr c [file size $a]
}
putlog "Dir size: $c"
}

And I'm getting an error: Tcl error [task:tmp]: no files matched glob pattern "files". Also tryed with "/files/" and "files/" and the same result.

ppslim · Post by **ppslim** » Fri Jan 17, 2003 6:52 am

Do those directories exist?

"/files/" is a obsolute directory.
"files/" is relative to the current directory
"files" is also relative to the currect die. It simply doesn't have the trailing slash.

Post by **caesar** » Fri Jan 17, 2003 9:14 am

"files/" dir exists.

ppslim · Post by **ppslim** » Fri Jan 17, 2003 9:49 am

make it

Code: Select all

foreach a [glob -type f "${dir}*"] {

Post by **caesar** » Fri Jan 17, 2003 10:32 am

Now works. As as sow, the result is in bytes, how to transfor it in KB and/or MB?

Oh, and also how to transform the result of the [file atime "${dir}"] in something more comestible like 17 Jan. 2003 @ 12:45 or something like this. I'm getting an result in seconds or something like this as far as I can see..

ppslim · Post by **ppslim** » Fri Jan 17, 2003 11:43 am

Do I have to keep quoting the Tcl manual.

See the "clock format" command for time conversion.

As for working out MB and so on, it's a case of simple math.

Bytes / 1024 = Kbytes
Kbytes / 1024 = Mbytes

Post by **caesar** » Fri Jan 17, 2003 2:36 pm

Figured out myself how to get the time: [clock format [file atime "${dir}"] -format {%A, %d %B %Y @ %H %M %S}]

but how to make the KB and MB calc?

ppslim · Post by **ppslim** » Fri Jan 17, 2003 3:06 pm

PLEASE VISIT THIS PAGE

Try readin up about each command in the manual. I'm sure you will come to the correct command eventualy.

It's plain laziness, to know where the manual is, yet fail to try looking yourself, and wait for us to point it out.

spock · Post by **spock** » Fri Jan 17, 2003 6:02 pm

/me gets his flamethrower

Post by **caesar** » Sat Jan 18, 2003 7:57 am

ppslim: I'm sorry If I have let you under the wrong impresion that I'm plain laziness.

I have come to the correct command eventualy, after reading your advice.
[expr 4/2] makes the calc thing. Seesh..

Thank you for your time, support and mostly for your kindly cooperation and sorry again..

spock: there is no need to be rude or something.. I haven't done you anything, or have I done?

Make your own mistakes, not somebody else's..