Posted to tcl by oldlaptop at Wed Jul 06 00:27:21 GMT 2022view pretty
eltclsh > proc b0t text { expr {![string match -nocase "*11985*" $text] || ![string match -nocase "*7766*" $text]} }
eltclsh > b0t foo
1
eltclsh > b0t 27
1
eltclsh > b0t 11985
1
eltclsh > b0t 7766
1
eltclsh > b0t "11985 7766"
0