egghelp/eggheads community

question about foreach/string match

2005-05-06T17:32:01-04:00

It`s not too big and to slow now but the size will be bigger every day.

Statistics: Posted by sKy — Fri May 06, 2005 5:32 pm

question about foreach/string match

2005-05-06T17:01:36-04:00

Sky, how big is your list anyway? Unless it's really big I doubt this is much of an issue, but if it is, I'll try writing that thing I was talking about in tcl. Still might not make a whole lot of difference but it would be kind of fun.

Statistics: Posted by stdragon — Fri May 06, 2005 5:01 pm

question about foreach/string match

2005-05-06T12:37:00-04:00

If we use -glob with lsearch we can match an element with wildcards to an element in a list. So we can't match this!that@those to this!*@* in the list but we can do vice-versa.

example:

.tcl set thislist {"yo!*@*" "hayda*!me@*"}

.tcl lsearch -glob $thislist yo!hayda@haydek
Tcl: -1

.tcl lsearch -glob $thislist *!me@*
Tcl: 1

Statistics: Posted by Sir_Fz — Fri May 06, 2005 12:37 pm

question about foreach/string match

2005-05-05T04:30:47-04:00

we still don't know how much the lrange and lsearch speed up does ^-^.

Statistics: Posted by De Kus — Thu May 05, 2005 4:30 am

question about foreach/string match

2005-05-04T23:27:50-04:00

Tcl's lsearch won't work with -glob and -sorted at the same time. However you could write a search function that does that... it's kind of tricky because you have to split the list up based on where the wildcards are (beginning, middle, end). I was doing something like this for eggdrop 1.9.

Statistics: Posted by stdragon — Wed May 04, 2005 11:27 pm

question about foreach/string match

2005-05-02T03:30:04-04:00

hm.. maybe sort the list and use lsearch -sorted. i think that would be the most effective improvement.

Statistics: Posted by arcane — Mon May 02, 2005 3:30 am

question about foreach/string match

2005-05-01T12:21:06-04:00

dont disapoint the guy. of course lsearch can search for wildcards:
http://www.tcl.tk/man/tcl8.4/TclCmd/lsearch.htm#M10

you can probably speed up the thing, when you set the list like:
set hostlist {*.il24.net *.comcast.net *.jazztel.es *.telia.com *.attbi.com ...}

an alternitve would be to do:
set hostlist [lrange $hostlist 0 end]

this should strip any redudant code.

Code:

#De_Kus# set hostlistCurrently:    "*.il24.net"   "*.comcast.net"   "*.jazztel.es"   "*.telia.com"   "*.attbi.com"tcl: evaluate (.tcl): lrange $hostlist 0 endTcl: *.il24.net *.comcast.net *.jazztel.es *.telia.com *.attbi.com

Statistics: Posted by De Kus — Sun May 01, 2005 12:21 pm

question about foreach/string match

2005-05-01T11:26:26-04:00

mmh :/
no other way?

how is the internal bot banlist coded? that`s still fast until the banlist is huge.

Statistics: Posted by sKy — Sun May 01, 2005 11:26 am

question about foreach/string match

2005-05-01T11:12:58-04:00

With lsearch you search for an element in a list and it will return it's position in the list (which would be a number) or -1 if it doesn't exist. So, you can't match with lsearch.

Statistics: Posted by Sir_Fz — Sun May 01, 2005 11:12 am

question about foreach/string match

2005-05-01T11:08:21-04:00

what about lsearch? i tryed but i can`t find "right match"

Statistics: Posted by sKy — Sun May 01, 2005 11:08 am

question about foreach/string match

2005-05-01T11:04:54-04:00

if you bind join - "* " it might make it faster, but then you'll have alot of bind joins, so I suggest you keep it this way.

Statistics: Posted by Sir_Fz — Sun May 01, 2005 11:04 am

question about foreach/string match

2005-05-01T10:48:57-04:00

Is there a way to do the same like this script but with more speed?
(hostlist is much bigger)

Code:

set hostlist {"*.il24.net""*.comcast.net""*.jazztel.es""*.telia.com""*.attbi.com".................................}bind join - * onjoin:checkproc onjoin:check { nickname hostname handle channel } { set host [lindex [split $hostname "@"] 1] foreach h $hostlist {  if { [string match -nocase $h $host] } {   procname $var $var ....   return  } }}

Statistics: Posted by sKy — Sun May 01, 2005 10:48 am