egghelp/eggheads community

lsearch and list

2007-03-23T13:52:34-04:00

Use proper lists and do a foreach loop to use each list item as a pattern with "string match", don't expect "string match" to pick a part of the pattern and match it against the text-string.

That is, given that "patterns" holds a valid list structure and "text" the text string, something like this:

Code:

foreach item $patterns {  if {[string match $item $text]} {    puts stdout "It matched!!!"    break  }}

Statistics: Posted by nml375 — Fri Mar 23, 2007 1:52 pm

lsearch and list

2007-03-23T12:03:59-04:00

tell me how to do thing like

if { ([string match -nocase "* $helpwanted *" $input] ===== 1

i want to it replay 0 when there is full zeros like
in $helpwanted is

bla
he
hi

andf return 0 if no one word match with $input ..

Statistics: Posted by Craig — Fri Mar 23, 2007 12:03 pm

lsearch and list

2007-03-22T16:03:33-04:00

The problem is that arg can never contain a newline, yet you use a mask that does contain a newline... should be quite obvious the mask will never match..

And as for lsearch:ing arg, you're just getting away with with sheer luck.. should arg contain characters such as {[]} and similar, you'd be up for a "nice" surprise...

Statistics: Posted by nml375 — Thu Mar 22, 2007 4:03 pm

lsearch and list

2007-03-22T16:00:13-04:00

Code:

; set arg "lol http:// http://lol www.lol www ftp:// lol ftp://:P"#101 (56 clicks) Tcl: lol http:// http://lol www.lol www ftp:// lol ftp://:P; set arg [lsearch -regexp -all -inline $arg {(http://|www.|ftp://)}]#103 (121 clicks) Tcl: http:// http://lol www.lol ftp:// ftp://:P

i dont understand you, lsearch is working with $arg and also when i'll try "putquick : privmsg $chan $bwfound" it will return that words. :O

Code:

set bwfound [lsearch -regexp -all -inline $arg {(http://|www.|ftp://)}]putquick " privmsg $chan : BW FOUNDED: $bwfound"

>>

10.:142110·140010·140810:. 03«~Thiev03» http:// lol ftp:// lol http://lol lol ftp://lol lol
10.:142110·140010·140810:. 03«@dghnws03» cos znalazlem!
10.:142110·140010·140810:. 03«@dghnws03» BW FOUNDED: http:// ftp:// http://lol ftp://lol

Statistics: Posted by Craig — Thu Mar 22, 2007 4:00 pm

lsearch and list

2007-03-22T13:23:47-04:00

First off then, you cannot use lsearch on $arg, as it is not a list...
Secondly, since arg is provided from the pubm-trigger, it cannot contain a newline; hence the pattern you store in bw cannot match any possible result from your lsearch (as should be obvious from my last post)
That is, since arg never could hold any newlines, and you type http://, at best, the lsearch would result in bwfound being set to:

http://

Quite obviously, bw cannot match this pattern:

*http://*
*www.*
*ftp:/*

Statistics: Posted by nml375 — Thu Mar 22, 2007 1:23 pm

lsearch and list

2007-03-22T12:51:15-04:00

Code:

bind pubm - "* *" badword:pubm:check proc badword:pubm:check {nick uhost handle chan arg} { global triggerchar## if { [isop $nick $chan] || [ishalfop $nick $chan] || [isvoice $nick $chan] } { ##putlog "used isop/hop/vop"##return 0 ## } if {[string match "*@..." $uhost]} {  putlog "is hosted" return 0 }if { ![file exists [string trimleft $chan #]_badwords.txt] } {return 0}set input [swear:filter2 $arg]set readbw [open [string trimleft $chan #]_badwords.txt r] while { ![eof $readbw] } {  putlog "i do something"gets $readbw line set helpwanted [string range $line 0 [expr [string first # $line]-1]] set message [string range $line [expr [string first # $line]+1] [expr [string first ź $line]-1]] set typeof  [string range $line [expr [string first ź $line]+1] end] if { ([string match -nocase "* $helpwanted *" $input] == 1 && $helpwanted != "") || ([string match -nocase "$helpwanted" $input] == 1 && $helpwanted != "") } {                if { $typeof == 4 } {                        BadWordKick $nick $uhost $chan $arg $helpwanted $message $typeof $input                        return 0                }if { $typeof == 3 } {putquick "PRivmsg $chan : cos znalazlem! :D"set Excepts(File) [open excepts_[string trimleft $chan #]_badwords.txt r] while { ![eof $Excepts(File)] } {  gets $Excepts(File) lineset Excepts(list) [string range $line 0 [expr [string first # $line]-1]]## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~set count 0## At Least one Badword  to chekset bw "http:// www. ftp:/"set bw *[join [split $bw] "*\n*"]*set bwfound [lsearch -regexp -all -inline $arg {(http://|www.|ftp://)}]putquick "privmsg $chan : $bwfound"putquick "privmsg $chan : $bw"putquick "privmsg $chan : $Excepts(list)"while {$count < [llength $bwfound]} {if { [string match -nocase "$bw" [lindex $bwfound $count]] == 1 } {putquick "PRIVMSG $chan : Wypierdalam cie bo podałeś badword."#putquick "PRIVMSG $chan : $Excepts(list)"if { [string match -nocase "$Excepts(list)" [lindex $bwfound $count]] == 1 } {putquick "PRIVMSG $chan : Ale jest wyjatek to mash spokój bo spokoje. :p"} else {putquick "PRIVMSG $chan : Wyjątku tez brak to wypad."return 0}}incr count 1}}}

etc., so $arg return what someone said ... ;p of course i tried to say http:// and ftp://

Statistics: Posted by Craig — Thu Mar 22, 2007 12:51 pm

lsearch and list

2007-03-21T12:50:34-04:00

So, if you don't use foreach anymore, why should bw match "http://", assuming it's still set according to this:

Code:

set bw "http:// www. ftp:/"set bw *[join [split $bw] "*\n*"]*

Effectively setting bw to this:

*http://*
*www.*
*ftp:/*

I doubt any of the list-items within $bwfound would match that pattern, however I would need further information on $arg to effectively say wether it would actually have a chance of matching anything...

Statistics: Posted by nml375 — Wed Mar 21, 2007 12:50 pm

lsearch and list

2007-03-21T07:33:22-04:00

i said you i did - if not sorry then

but it also dont working with foreach .. just maybe with first badword "http://" it dont see "www." and others when foreach

Statistics: Posted by Craig — Wed Mar 21, 2007 7:33 am

lsearch and list

2007-03-20T14:13:49-04:00

So you've removed the foreach loop then?

Statistics: Posted by nml375 — Tue Mar 20, 2007 2:13 pm

lsearch and list

2007-03-20T14:07:13-04:00

$bw dont want work as list in "if string match - nocase" always returnining 0 -.-

Statistics: Posted by Craig — Tue Mar 20, 2007 2:07 pm

lsearch and list

2007-03-19T13:41:35-04:00

There is no any errors,

i said http:// wchich is added to $bw and it didnt do anything,

it should say at least putquick "PRIVMSG $chan : Wypierdalam cie bo podałeś badword."

Statistics: Posted by Craig — Mon Mar 19, 2007 1:41 pm

lsearch and list

2007-03-19T12:41:12-04:00

You'll have to escape the . if you want it to match period (.) only... There's no other way of doing it with regular expressions.
As for bw and bwb, in the last code example including that part that you've posted, bw is a string, and as such is unsuitable to be used with foreach (as I stated in a previous post aswell).

If you believe the part of the code you pasted isn't even executed, why do you think the error is there in the first place?

Statistics: Posted by nml375 — Mon Mar 19, 2007 12:41 pm

lsearch and list

2007-03-19T11:54:23-04:00

Only this part does not work which i paste you higher . And as i think, script dont even read this part. If i use bwb $bw and then when i change $bw on $bwb in a place "if string match -nocase" this $bwb works. Problem with this comunicate - ubm:check]: can not find channel named "file" - gone after i delete - close excepts-file -.

However i still dont know what i have to do with this "." as u wrote to me. I think it should be recognize as a simple sign, and i cant use / before "." because i have to write !badword add *www* before. then in my file it should to be wrote as www. I dont have any problems with this command but as u told me ..laters eggdrop will read this as any sign, it should to exist something like "simple full stop" (".")

Statistics: Posted by Craig — Mon Mar 19, 2007 11:54 am

lsearch and list

2007-03-19T10:33:06-04:00

I fail to see whatever you've changed in the posted piece of code from the original post.

In order to use . with regular expressions you'll have to escape them properly. I'd strongly suggest you study the basics on regular expressions, as these can quite quickly become very complex and not behave as intended.

Yes, I know you use lsearch to scan through $arg. That was not my question. The question was where the value of arg is defined/set.

Oh, btw, just saying "it does'nt work" and not providing any more details really does'nt help...

Statistics: Posted by nml375 — Mon Mar 19, 2007 10:33 am

lsearch and list

2007-03-19T08:57:47-04:00

Code:

while {$count < [llength $bwfound]} {if { [string match -nocase "$bw" [lindex $bwfound $count]] == 1 } {putquick "PRIVMSG $chan : Wypierdalam cie bo podałeś badword."#putquick "PRIVMSG $chan : $Excepts(list)"if { [string match -nocase "$Excepts(list)" [lindex $bwfound $count]] == 1 } {putquick "PRIVMSG $chan : Ale jest wyjatek to mash spokój bo spokoje. :p"} else {putquick "PRIVMSG $chan : Wyjątku tez brak to wypad."return 0}}incr count 1}

now it dont want work anyhow ..

it is possible to change that . to ? ?
coz i really need chars like . to be normal -,-

--
lsearch is working with $ARG :p

Statistics: Posted by Craig — Mon Mar 19, 2007 8:57 am