Posted to tcl by oldlaptop at Wed Jul 06 00:27:21 GMT 2022view raw

  1. eltclsh > proc b0t text { expr {![string match -nocase "*11985*" $text] || ![string match -nocase "*7766*" $text]} }
  2. eltclsh > b0t foo
  3. 1
  4. eltclsh > b0t 27
  5. 1
  6. eltclsh > b0t 11985
  7. 1
  8. eltclsh > b0t 7766
  9. 1
  10. eltclsh > b0t "11985 7766"
  11. 0