egghelp/eggheads community

seek and catch {close $variable} meaning

2002-10-25T02:26:57-04:00

i change my code to your advice like this:

Code:

set a [open $files(1) r+] set b [read $a]if {[string match -nocase "*$text*" $b]} { catch {close $a} return 0 }set c [open $files(2) r+]set d [read $c]if {[string match -nocase "*$text*" $d]} { catch {close $c}return 0 }...etc....puts $a $textcatch {close $a}}putlog "new.tcl loaded"

but still my eggs getting killed with quit message (Client closed connection), and closed by remote section when i'm using telnet if i test by adding $text that already on the file (i want to test if the code works to denied a text that already on file), but the result is always killed....
Why?

[/code]

Statistics: Posted by Guest — Fri Oct 25, 2002 2:26 am

seek and catch {close $variable} meaning

2002-10-23T05:51:26-04:00

seek jumps to the specified file position...
seek $fa 0 end -> jump to 0 bytes after the end of the file... that's where you are, when reading a file from the start to the end.

a 'catch { close $fd }' closes file descriptor $fd and returns no error, even if the file is closed already

This appends $text to the first opened file, if $text is in none of the files

Code:

set fa [open $files(1) r+]set txt [read $fa]### here you're at the end of $files(1) ...if {[string match -nocase "*$text*" $txt]} {    ### remember to close $file(1) if $text is there:    catch { close $fa }    return 0} set fb [open $files(2) r]set txt [read $fb]catch { close $fb }if {[string match -nocase "*$text*" $txt]} {    ### remember to close $file(1) if $text is there:    catch { close $fa }    return 0}... snip ....catch { close $fx }if {[string match -nocase "*$text*" $txt]} {    catch { close $fa }    return 0}puts $fa $textcatch { close $fa }

If you want to replace the content of $file(1) insert a 'seek $fa 0 start' before the 'puts $fa $text'

Statistics: Posted by Guest — Wed Oct 23, 2002 5:51 am

seek and catch {close $variable} meaning

2002-10-23T05:26:47-04:00

well....actually i dont have any idea, i already try to make variations of that code, but the result is error and this is my last alternative variation and it seems dont have any error (my bot can be loaded) but if i test and add something to it, it killed (i think it because lack of memory of my shell) and now completely confuse and really need help or suggest from anyone, i dont pretty much smart about tcl, so can you make more specify what should i do? thx

Statistics: Posted by Guest — Wed Oct 23, 2002 5:26 am

seek and catch {close $variable} meaning

2002-10-23T04:18:30-04:00

well..i put them like this:

set a [open $files(1) r+]
set b [read $a]
if {[string match -nocase "*$text*" $b]} {
return 0
}
seek $a 0 end
catch {close $a}

Hmm... where's the sense in reading a file, jumping to the end (where you already are when reading the file to the end ) and then closing the file? ...and you return before closing the file if it matches -> open file descriptor

Statistics: Posted by Guest — Wed Oct 23, 2002 4:18 am

seek and catch {close $variable} meaning

2002-10-23T03:36:59-04:00

well..i put them like this:

set a [open $files(1) r+]
set b [read $a]
if {[string match -nocase "*$text*" $b]} {
return 0
}
seek $a 0 end
catch {close $a}
set c [open $files(2) r+]
set d [read $c]
if {[string match -nocase "*$text*" $d]} {
return 0
}
etc...
seek $g 0 end
catch {close $g}
puts $a $text

but when i test add something to my egg, it was killed, no error just seems not enough memory or ram. so...how to make they work well without spend to many memory of my shell?
thx

Statistics: Posted by Guest — Wed Oct 23, 2002 3:36 am

seek and catch {close $variable} meaning

2002-10-22T06:36:59-04:00

You would get that, as the error sugests, whent he variable doesn't exist.

You havn't exactly shown much of the code, other than the file close portion.

At the moment, the script does the following

open FILEA
open FILEB
open FILEC
open FILED

perform some command on the file

close FILEA
close FILEB
close FILEC
close FILED

This means, it opne 4 files at the same time. WHat you need, is to only open once at a time

EG

open FILEA
perform action of file
close FILEA

open FILEB
perform action on file
close FILEB

open FILEC
perform action on file
close FILEC

open FILED
perform action on file
close FILED

[/code]

Statistics: Posted by ppslim — Tue Oct 22, 2002 6:36 am

seek and catch {close $variable} meaning

2002-10-22T05:06:21-04:00

but seems it make error like this:

[01:57] can't read "text": no such variable
while executing
"string match -nocase "*$text*" $d"
(file "scripts/test.tcl" line 1)
(file "mybot" line 1)
[01:57] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

???

Statistics: Posted by Guest — Tue Oct 22, 2002 5:06 am

seek and catch {close $variable} meaning

2002-10-22T04:37:28-04:00

hmm...you mean like this: ??

if {[string match -nocase "*$text*" $b]} {
return 0
}
seek $a 0 end
catch {close $a}
}
if {[string match -nocase "*$text*" $d]} {
return 0
}
seek $c 0 end
catch {close $c}
}
etc...
puts $a $text
}

putlog "test.tcl loaded"

Statistics: Posted by Guest — Tue Oct 22, 2002 4:37 am

seek and catch {close $variable} meaning

2002-10-22T03:39:45-04:00

it will be the same

if I remember correctly you opens all the file for reading then if none of it matches you write to the last file.... correct?

if that was the case maybe you should try opening just one file at the time.... open 1--->close 1 open 2--->close 2 ....etc
this probably means that you'll have to rewrite parts of your code..but maybe it's worth a shot

Statistics: Posted by Papillon — Tue Oct 22, 2002 3:39 am

seek and catch {close $variable} meaning

2002-10-22T01:51:39-04:00

I just wandering, what is mean the part of this code, especially seek 0 end command,

seek $a 0 end
seek $c 0 end
seek $e 0 end
seek $g 0 end
catch {close $a}
catch {close $c}
catch {close $e}
catch {close $g}

coz i have problem with too many open files when i load this tcl, so how about if i change a little different at above part code and change them like this:

seek $a 0 end
catch {close $a}
}
seek $c 0 end
catch {close $c}
}
etc...

so...problem too many open files will be avoid. Hmm...i wander, would it be the same or will give a different meaning from the old code??
thx, i just want to know how they work, so maybe i'll understand (at least i try to understand) to fix my current problem about this.

Statistics: Posted by Guest — Tue Oct 22, 2002 1:51 am