egghelp/eggheads community

Special characters in string match

2007-05-08T21:23:48-04:00

All special characters to replace which are used in nicks and masks:

Code:

set banmask [string map {\\ \\\\ [ \\\[ ] \\\] \{ \\\{ \} \\\}} $banmask]

Statistics: Posted by awyeah — Tue May 08, 2007 9:23 pm

Special characters in string match

2007-04-29T12:03:20-04:00

I already showed you how it's done, let me paste it again more explained:

Code:

# List of masks which you want to be bannedset banmasks { *[M]*!*@* bla!*@* lame!*[foo]*@bar.* nickwith\{!*@* nick-with_\}!*@* nickwith\\!*@*}bind join -|- * BLK:Jproc BLK:J {nick uhost hand chan} { global banmasks # U is nick!user@host set U $nick!$uhost foreach banmask $banmasks {  # here you skip the brackets [ and ]  set banmask [string map {[ \\[ ] \\]} $banmask]  # this way *[M]* will match only *[M]* and not *M*  if {[string match -nocase $banmask $U]} {   # You've found a match!   break  } }}

Statistics: Posted by Sir_Fz — Sun Apr 29, 2007 12:03 pm

Special characters in string match

2007-04-28T22:04:06-04:00

{[ \\[ ] \\]} ??????
you mean {[ \\[ \\] ]} ????

Statistics: Posted by Dedan — Sat Apr 28, 2007 10:04 pm

Special characters in string match

2007-04-28T21:50:12-04:00

So your issue was with the move? I simply moved it because user's topic is about ban masks and not [string match]. If you don't want anyone but user to answer you then don't do a public post in the forum. I didn't get your array argument though, I still believe using a list is a better choice.

I already said that only [ and ] have special meaning in [string match] so all you need is to apply that string map to the match as I've indicated in the sample code I wrote.

Statistics: Posted by Sir_Fz — Sat Apr 28, 2007 9:50 pm

Special characters in string match

2007-04-28T22:27:05-04:00

1) the original post refected an aspect of the orginal topic user started
2) the orginal post was directed to user
3) it is set in an array because it does have value, 5+ values
4) are you suggesting i should use:
set banmask [string map {[ \\[ ] \\]} $banmask]

set banmask [string map {[ \\{ } \\]} $banmask]

set banmask [string map {[ \\- _ \\]} $banmask]

Statistics: Posted by Dedan — Sat Apr 28, 2007 9:42 pm

Special characters in string match

2007-04-28T21:34:43-04:00

Fix your attitude so you would understand what I'm suggesting.

set banmask "*[M]*!*@*"

This obviously causes an error since it will try to evaluate M as a Tcl-command.

set blacklist($banmask)

This also causes an error since it has no parameter (proper syntax is: set var-name value)...

And I don't see why you're storing the masks in an array where you can simply use a list.

Code:

set banmasks { *[M]*!*@* bla!*@* lame!*[foo]*@bar.*}bind join -|- * BLK:Jproc BLK:J {nick uhost hand chan} { global banmasks set U $nick!$uhost foreach banmask $banmasks {  # here's where my suggestion helps  set banmask [string map {[ \\[ ] \\]} $banmask]  if {[string match -nocase $banmask $U]} {   # You've found a match!   break  } }}

Statistics: Posted by Sir_Fz — Sat Apr 28, 2007 9:34 pm

Special characters in string match

2007-04-28T21:15:13-04:00

what are you talking about?

Code:

 set banmask "*[M]*!*@*" set blacklist($banmask) bind join -|- * BLK:Jproc BLK:J {N uhost H C} {  set U "$N![getchanhost $N]"  foreach E [array names blacklist] {    if {[string match -nocase $E $U]} {

and you are suggesting what?

Statistics: Posted by Dedan — Sat Apr 28, 2007 9:15 pm

Special characters in string match

2007-04-28T20:44:00-04:00

You won't face problems with {, }, -, _, or \ using [string match] (as long as you properly use string and list commands). You only need to skip [ and ], applying the following string map on the match should do it:

Code:

set match [string map {[ \\[ ] \\]} $match]

Statistics: Posted by Sir_Fz — Sat Apr 28, 2007 8:44 pm

Special characters in string match

2007-04-28T17:11:50-04:00

never the less user i am in the final stages
of a very nice blacklist script for large channels

i would like to be able to ban nicks with
special chars in them but it seems impossible.

i am currently using "string match" for compare

[01:50] .tcl string match *[M]*!*@* *!*@*
[01:50] Tcl error: invalid command name "M"

[01:50] .tcl string match *\[M\]*!*@* *M*!*@*
[01:50] Tcl: 1

upon blacklisting *[M]*!*@* the script banned
everyone that had a M in their nick

i would like to ban nicks with [,],-,_.\,{, and } in them

any suggestions?

Edit: I've moved this post from the FAQ to this forum due to its irrelevance. (Sir_Fz)

Statistics: Posted by Dedan — Sat Apr 28, 2007 5:11 pm