egghelp/eggheads community

using list in a foreach command

2005-07-08T17:48:36-04:00

Thanks for the help guys.

Statistics: Posted by Solarin — Fri Jul 08, 2005 5:48 pm

using list in a foreach command

2005-07-02T08:45:31-04:00

It won't matter if it contains brackets then

exactly, unless you eval it

Statistics: Posted by Sir_Fz — Sat Jul 02, 2005 8:45 am

using list in a foreach command

2005-07-02T02:59:43-04:00

It won't matter if it contains brackets then

Statistics: Posted by metroid — Sat Jul 02, 2005 2:59 am

using list in a foreach command

2005-07-01T18:08:46-04:00

For example:

Code:

set list { "bl[a]" "fo\o"}foreach bar $list { putlog $bar}

this will putlog:

bl[a]
foo

but

Code:

set list { {bl[a]} {fo\o}}foreach bar $list { putlog $bar}

will putlog

bl[a]
fo\o

to putlog fo\o using the first, you should use "fo\\o" instead of "fo\o".

Statistics: Posted by Sir_Fz — Fri Jul 01, 2005 6:08 pm

using list in a foreach command

2005-07-01T17:05:17-04:00

what's the advantage of doing it that way?

Statistics: Posted by Solarin — Fri Jul 01, 2005 5:05 pm

using list in a foreach command

2005-06-26T09:10:30-04:00

You can also use lists in this format, which is more better:

Code:

set mylist {{my_element1}{my_element2}{my_element3}}

Statistics: Posted by awesomeawyeah — Sun Jun 26, 2005 9:10 am

using list in a foreach command

2005-06-23T03:33:55-04:00

haha, omg.... we are all stupid to not notice this one earlier! we should be doomed!
you must escape the [] braces, but not because TCL tries to execute them, but because string match uses it like regexp, [fastshit] matchs any string containing a single f OR a OR s OR t OR h OR i . Just the - at the end prevents matching a bit, because it must match with a following - ^.^.

http://www.tcl.tk/man/tcl8.4/TclCmd/string.htm#M35

Statistics: Posted by De Kus — Thu Jun 23, 2005 3:33 am

using list in a foreach command

2005-06-23T01:36:32-04:00

Ok I did some testing and this is what I found with the following code:

Code:

set cv_bannednicks {[xxx][fastshit]-}...  set nick "[lindex [split $args " "] 6]"  set cv_host($nick) "[lindex [split $args " "] 8]"  foreach s $cv_bannednicks {   if {[string match -nocase *$s* $nick]} {     putlog "debug: would have banned *@$cv_host($nick) based on $s with $nick"    break;   }  }

The output resulted with:
[01:34] (Botnickhere): [05:37] debug: would have banned *@censored.host.tmns.net.au based on [xxx] with mZ[SXCRXY]sad
[01:34] (Botnickhere): [05:37] debug: would have banned *@censored.host.gte.net based on [xxx] with cxhdxaes

I don't get it. Can anyone help here?

Statistics: Posted by Solarin — Thu Jun 23, 2005 1:36 am

using list in a foreach command

2005-06-08T20:10:20-04:00

Hmmm... well you are correct on the break; command. I did not have that in there. Thanks for that. I had an oversight there. However it is still 8 rather than 7.

As for the nick problem, it definitely has to do with string matching on an element of $cv_bannednicks. What would you suggest from here?

Perhaps I should throw another nick in the list for test sake.

Statistics: Posted by Solarin — Wed Jun 08, 2005 8:10 pm

using list in a foreach command

2005-06-08T19:33:24-04:00

are you sure you broke the foreach loop after the first match?

.loadtcl test
1: irc-ord
2: http://www.ircap.com
3: rbot
4: jrbot
5: http://iroffer.org/
6: xen0
7: sdbot
8: xdcc catcher basic
9: xdcc

the list is proccessed smoothly here using your code (with putdcc 7 "$tempversionnumber: $s" after the incr invoaction).

for the nick thing... strange. from the code you posted it doesnt make sense at all. *[xxx]* cant match SeXy_BeBuLs_16. you accidently used join on a string while setting the nick (lindex returns a string, lrange returns a list ^^), but i doubt that was the problem.
same goes with my intention of using split \n

.loadtcl test
firsttag
[tag2]
{tag3}
$tag4$
lasttag

Statistics: Posted by De Kus — Wed Jun 08, 2005 7:33 pm

using list in a foreach command

2005-06-08T17:20:33-04:00

Ok... this is really starting to bother me. Why don't my comparisons work correctly?

Code:

set cv_bannedversions { "irc-ord" "http://www.ircap.com" "rbot" "jrbot" "http://iroffer.org/" "xen0" "sdbot" "xdcc catcher basic" "xdcc"}proc ctcp:version {nick uhost handle target key text} { set tempversionnumber 0... foreach s $cv_bannedversions {  if {[lsearch -glob [string tolower $text] "*$s*"] != -1} {...  }  incr tempversionnumber }}

with a version of XDCC Catcher Basic, $tempversionnumber is 8 not 7 (which is "xdcc" not "xdcc catcher basic"). This indicates that spaces in the element of $cv_bannedversions are making it choke up.

Furthermore, De Kus, the nick SeXy_BeBuLs_16 was banned with this code instead of nicks with [xxx] in them (so any nick with x in it will be banned):

Code:

set cv_bannednicks {[xxx]}...set cv_bannednicks [split $cv_bannednicks \n]...  set nick "[join [lindex [split $args " "] 6]]"  foreach s $cv_bannednicks {   if {[string match -nocase *$s* $nick]} {...   } }

I haven't heard back in regards to this one yet.

Statistics: Posted by Solarin — Wed Jun 08, 2005 5:20 pm

using list in a foreach command

2005-06-01T19:31:11-04:00

That worked great. Now if the bannednicks thing worked well with special nicks, I'd be set.

Statistics: Posted by Solarin — Wed Jun 01, 2005 7:31 pm

using list in a foreach command

2005-06-01T17:48:59-04:00

try

Code:

set percent [expr {double($cv_banned) / $cv_count * 100}]

Code:

set percent [expr {($cv_banned) / ($cv_count + 0.0) * 100}]

check out expr.

Statistics: Posted by Sir_Fz — Wed Jun 01, 2005 5:48 pm

using list in a foreach command

2005-06-01T16:20:33-04:00

They are incremented counters...

Code:

set percent 0set tcl_precision 2set percent [expr $cv_banned / $cv_count * 100.00]putserv "PRIVMSG $chan :Banned $cv_banned hosts out of $cv_count clients ($percent%).

That snippet is showing the following text in channel:
Banned 40 hosts out of 457 clients (0.0%).

Sorry... that was meant to be cv_banned instead of cv_klined for consistency sake.

Statistics: Posted by Solarin — Wed Jun 01, 2005 4:20 pm

using list in a foreach command

2005-06-01T15:56:40-04:00

Furthermore, I still haven't heard anything from anyone regarding my expr problem:
Code:
set percent 0set tcl_precision 2set percent [expr $cv_klined / $cv_count * 100.00]
Why doesn't that return something (or why doesn't it return something other than 0)?

what're $cv_klined and $cv_count ?

Statistics: Posted by Sir_Fz — Wed Jun 01, 2005 3:56 pm