11.5 The end of the file
In some cases you might not know how large a file and thus don't know up until where to read from the file.
With the eof command you can find out if the end of the file has been reached.
The syntax of an eof command is eof <channel>.
The <channel> is the channel of the file you cought with the open command.
The eof command returns a 1 if the last command that accessed the channel gave an "end of file" report
and a 0 if it didn't.
A way to use the eof command is in a while loop for instance. Here's an example:
set found 0
set fs [open $file r]
while {![eof $fs]} {
gets $fs line
if {$line == $nick} { set found 1 }
}
close $fs
if {$found} {
putdcc $idx "$nick was found!"
} else {
putdcc $idx "$nick was not found."
}
This would check every line of $file and tell whether or not one of those lines was equal to $nick.
|