egghelp/eggheads community

Re: badwords tcl with regexp

2024-03-28T12:33:36-04:00

thanks CC

Statistics: Posted by simo — Thu Mar 28, 2024 12:33 pm

Re: badwords tcl with regexp

2024-03-28T11:03:51-04:00

Regexp synopsis: regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?
You use bword as exp (must be a regular expression) and textedit as string (must not be a regular expression).

you'd better transform bword rather than textedit: script script

% set bword "test"test% set textedit "I'am a test0r gonna testing"I'am a test0r gonna testing# What you do% set textedit [string map {o [0o] u [uv] i [i1] e [3e] a [a4]} $textedit]I'[a4]m [a4] t[3e]st0r g[0o]nn[a4] t[3e]st[i1]ng% regexp -nocase $bword $textedit0# bad :)# What I do% set textedit "I'am a test0r gonna testing"I'am a test0r gonna testing% set bword [string map {o [0o] u [uv] i [i1] e [3e] a [a4]} $bword]t[3e]st% regexp -nocase $bword $textedit1#good

script Small addition: use -all: script script

% regexp -all -nocase $bword $textedit2

script

Statistics: Posted by CrazyCat — Thu Mar 28, 2024 11:03 am

badwords tcl with regexp

2024-03-28T10:49:17-04:00

greetz, i was trying out this small badwords tcl with regexp the idea is to have it strip colorscodes bold and such and strip from duplicate characters and non alphabetical/digit and have comon chars replaces wich are often used to evade badwords like 0 for o 3 for e and such and after all that to have it match against the text but for some reason it seems to trigger regardless of what text is used.

Code:

set badwords {"*censored*""somebadword"}bind pubm - * text:badwordsproc text:badwords {nick uhost hand chan text} {global badwordsset text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]regsub -all -- {(.)\1+} $text {\1} textregsub -all -nocase {[^a-z0-9]+} $text "" texteditset textedit [string map {o [0o] u [uv] i [i1] e [3e] a [a4]} $text]set banmask "*!*@[lindex [split $uhost @] 1]"foreach bword $badwords {if {[regexp -nocase {[$bword]} $textedit]} {pushmode $chan +b  m:$banmask}}}

not sure where i went wrong i suspect the line : if {[regexp -nocase {[$bword]} $textedit]} {

but im not sure what the proper method would be to use that line in this case since we test text matched against like [0o] [3e] i thought its proper to use regexp for it unless there is a better way.

hope someone might have a solution.

apreciated,

Statistics: Posted by simo — Thu Mar 28, 2024 10:49 am