quite simple question (idents)

[misterys]

hey,
i think it's a quite simple question

set list {
\[a-z\]\[0-9\]\[0-9\]\[0-9\]\[0-9\]
......
}
.....
foreach [censored] $list {
if {[string match * ($[censored]@*" $text] } {
....


how can i add the possibiliy of ~ in front of $[censored]@*
i dont want to add it in the list

or how can i define "or" in tcl ?

thanks

[De Kus]

or how can i define "or" in tcl ?

looking for The Manual?

[awyeah]

Not sure here what you are exactly trying to do over here, but some of these might be it if I am correct:

Code: Select all

foreach [censored] $list {
 if {[string match "*connecting: * (~$[censored]@*" $text]} {

foreach [censored] $list {
 set [censored] "~$[censored]"
 if {[string match "*connecting: * ($[censored]@*" $text]} {

if {([string index $[censored] 0] == "~")} { 

[misterys]

thanks
|| was enough
yeha a new chapter in my war against bots