egghelp/eggheads community

This for some reason wont work

2002-06-05T21:09:00-04:00

Beside the counting offset of one line, the code "while {![eof $fp]}" doesn't produce any errors afaik. But it should be clear that one extra empty line is processed by the code following the [gets]. This may be undesired behaviour.

One can argue that the "while {![eof $fp]}" at least makes explicit what the intention of the code is.
To make the intention explicit one could also throw in a "# read until EOF" line.

But why use EOF anyway? ...some additional info

http://mini.net/tcl/367.html

and

http://starbase.neosoft.com/~claird/com ... m.html#eof

[ This Message was edited by: egghead on 2002-06-05 19:22 ]

Statistics: Posted by egghead — Wed Jun 05, 2002 9:09 pm

This for some reason wont work

2002-06-05T20:32:00-04:00

yes. this is true for just about every language. eof is a function of a read statement - it gets set as a result of a failed read due to falling off the end of the file. opening a file never checks whats in it, or how long it is. It just opens the file descriptor and points to the first byte of the file (if it exists or not). It only discovers if it exists once you try to read it.

Statistics: Posted by Petersen — Wed Jun 05, 2002 8:32 pm

This for some reason wont work

2002-06-05T16:06:00-04:00

PPSlim - No, even if you open an empty file, you will not get eof until you attempt a read. Try it.

Statistics: Posted by stdragon — Wed Jun 05, 2002 4:06 pm

This for some reason wont work

2002-06-05T11:34:00-04:00

No - he has done right by checking for EOF before the gets.

Remember this is a while loop.

While checking for EOF after the gets does the same thing, it will cause a empty file to have a EOF read, before it is detected.

You should check for an EOF before a read, to prevent a failed read.

Statistics: Posted by ppslim — Wed Jun 05, 2002 11:34 am

This for some reason wont work

2002-06-05T03:19:00-04:00

Erm, this code worked for me...

Maybe you're using different case (capital/lowercase) in the nicks? You're probably better off using "string compare -nocase" than "==".

Also, just a little nitpick, you should check for eof after gets, not before.

Statistics: Posted by stdragon — Wed Jun 05, 2002 3:19 am

This for some reason wont work

2002-06-04T14:15:00-04:00

This will not find the nick in the templist

set file templist
set found 0
set fs [open $file r]
while {![eof $fs]} {
gets $fs line
if {$line == $nick} { set found 1 }
}
close $fs
if {$found} {
puthelp "PRIVMSG $chan : was found!"
} else {
puthelp "PRIVMSG $chan : was not found."
}

[ This Message was edited by: [Nero] on 2002-06-04 12:16 ]

Statistics: Posted by [Nero] — Tue Jun 04, 2002 2:15 pm