egghelp/eggheads community

read from a file ?

2011-03-07T14:46:21-04:00

Since you're not looking for someone just writing code for you, I believe this thread rather belongs to the "Scripting Help" forum (I'll move it there once I'm done with this post)

As for the code, it's not that complex; I'll walk you through it..

Code:

if {[catch {open "scripts/chanlist.txt" "RDONLY"} fd]} {  puthelp "PRIVMSG ###1 :Unable to open the channel-list"  putlog "Error during open: $fd"  return 0}

This simply opens the file in a safe manner. "catch" simply catches any errors thrown by open, allowing us to send an error to the person using the command, and logging the actual error message for further investigation.
If the open-command succeeds, a file descriptor is stored in the variable fd instead...

Code:

fconfigure $fd -blocking 0

Sets the file descriptor to "non-blocking" mode; which means that no operations on this descriptor may block (blocking == not returning / completing immediately). Usually not needed to be set explicitly with normal files, but it's a good practice in most cases (makes sure your code won't cause your eggie to stop responding in case of I/O issues)

Code:

while {![eof $fd] && ![fblocked $fd]} {...}

Run a loop which checks the EOF (End of File) and fblocked (blocking operation, see above) status of the last operation (in this case; reading a line from the file). EOF will be true if we've reached the end of the file. Fblocked would be true if the last call to "gets" would not return a complete line - not likely to happen with files, but once again good practice (especially if you start reading sockets, serial ports, or pipes in the future).
Simply put, this will make sure we keep on reading the file until we've reached the end of it.

Code:

..if {[gets fd data] > 0 } {  ...}

Try to read one line from the file, and store it in the variable "data". Also check how many characters we actually read (0 means an empty line, anything less than 0 means there was an error, such as EOF). If we've read something, then we should write it to the channel..

Code:

...puthelp "PRIVMSG ###1 :$data"...

Send the line of text we've read into the channel ###1.

Statistics: Posted by nml375 — Mon Mar 07, 2011 2:46 pm

read from a file ?

2011-03-07T02:24:00-04:00

@Gemster : You don't need to google anything, just have a look on Tcl Commands. All the stuff are explained in there.

Also, if you checked the Tcl FAQ you would have found Basic File Operations where you would have found some interesting stuff to read on this topic.

Regarding your first post, you don't need to add " in:

Code:

puts $cl "[lindex $text 1]"

unless you want to add two or more variables, like:

Code:

puts $cl "$bla $blah"

or some text:

Code:

puts $cl "bla blah"

@nml375 : no problem. keep up the good work.

Statistics: Posted by caesar — Mon Mar 07, 2011 2:24 am

read from a file ?

2011-03-06T19:14:57-04:00

I know yours does that nml375, but id like to learn this but i cant as i dont understand your script.

The script i posted i made my self and took a few hours as for googleing everything but the examples i seen for "gets" i just cant get them to work.

The main reason i need to learn is that there are a lot of script id like to make but they require a file made and read from , this is why i need to learn myself as simple as possible.

Thanks
Gemster

Statistics: Posted by Gemster — Sun Mar 06, 2011 7:14 pm

read from a file ?

2011-03-06T19:05:39-04:00

Add the binding

Code:

bind pub - ".chanlist" chanlist

as I said, and that's exactly what it does

Statistics: Posted by nml375 — Sun Mar 06, 2011 7:05 pm

read from a file ?

2011-03-06T18:53:40-04:00

I still dont understand that script you posted lol

Ill i want is a command that will read from a file ?

Thanks
Gemster

Statistics: Posted by Gemster — Sun Mar 06, 2011 6:53 pm

read from a file ?

2011-03-06T18:39:04-04:00

caesar:
True, thanks for pointing out the typo. Updated the original post.

Statistics: Posted by nml375 — Sun Mar 06, 2011 6:39 pm

read from a file ?

2011-03-06T18:02:41-04:00

Shouldn't it be 'fblocked $fd' and not 'fblocked $df'?

Statistics: Posted by caesar — Sun Mar 06, 2011 6:02 pm

read from a file ?

2011-03-06T16:39:10-04:00

That is what my code will do (provided you use the bindning from your original post, simply replacing the "chanlist" proc).

Statistics: Posted by nml375 — Sun Mar 06, 2011 4:39 pm

read from a file ?

2011-03-06T15:10:41-04:00

Thanks nml375, but thats kinda too complicated for me to understand atm lol, im new to tcl scripting.

Is it possible to use the code i posted but will a read command that will msg channel ###1 the output ?

The file is written as a list like this:

#channel1
#channel2
#channel3

Thanks
Gemster

Statistics: Posted by Gemster — Sun Mar 06, 2011 3:10 pm

read from a file ?

2011-03-06T18:38:03-04:00

One simple way of doing it is like this:

Code:

...proc chanlist {nick uhost hand chan text} {  if {[catch {open "scripts/chanlist.txt" "RDONLY"} fd]} {    puthelp "PRIVMSG ###1 :Unable to open the channel-list"    putlog "Error during open: $fd"    return 0  }  fconfigure $fd -blocking 0  while {![eof $fd] && ![fblocked $fd]} {    if {[gets $fd data] > 0} {      puthelp "PRIVMSG ###1 :$data"    }  }  close $fd}

Some prefer using read, split, and foreach instead, which also works..

Edit: Fixed typo spotted by caesar

Statistics: Posted by nml375 — Sun Mar 06, 2011 2:52 pm

read from a file ?

2011-03-06T14:02:26-04:00

Hi, how do i make this read from the file and output it ?

Code:

bind raw - 322 channel:listproc channel:list {from keyword text} {set cl [open scripts/chanlist.txt a+]puts $cl "[lindex $text 1]" close $cl}bind pub - ".chanlist" chanlistproc chanlist {nick uhost hand chan text} {putserv "list"}

I need it to msg channel ###1 all lines in that file.

Thanks
Gemster

Statistics: Posted by Gemster — Sun Mar 06, 2011 2:02 pm