5 lines
144 B
Tcl
5 lines
144 B
Tcl
set input "a!===b=!=c"
|
|
set matchers {"==" "!=" "="}
|
|
lassign [multisplit $input $matchers] substrings matchinfo
|
|
puts $substrings
|
|
puts $matchinfo
|