egghelp/eggheads community

bind pubm questions.

2003-04-26T19:45:34-04:00

Code:

# a close bracket missing hereif {([string trim $line != "") &&# make sure you get it right before testing or your bot will crashif {([string trim $line] != "") &&

Statistics: Posted by Papillon — Sat Apr 26, 2003 7:45 pm

bind pubm questions.

2003-04-27T05:24:31-04:00

Code:

set io [open the_datafile.dat r]while {![eof $io]} {  gets $io line  if {([string trim $line] != "") &&      [string match $line $the_text_said]} {    ;# Found match, do stuff here.    break  }}close $io

------

There is an example. Opens 'the_datafile.dat', reads each line assuming the line is a glob style string to match against '$the_text_said'.

Statistics: Posted by MC_8 — Sat Apr 26, 2003 5:18 pm

bind pubm questions.

2003-03-29T00:55:18-04:00

I was hoping someone could help me out, I'm fairly new to tcl and don't have a very extensive resouce list yet..

I'm trying to write a script that is basically a badword script, I'd like the badwords to be in a file so more words can be easily added. I guess my main question is if there is a way to use bind pubm and a variable that holds the various words in the badword file?

Bad Words v5.1.9 by MC_8 is pretty close to what I want, but it seems like way way overkill for my needs (plus I'd like to write it myself (for the most part anyway )

thanks!

Statistics: Posted by Guest — Sat Mar 29, 2003 12:55 am