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