RosettaCodeData/Task/Multisplit/Tcl/multisplit-3.tcl

6 lines
144 B
Tcl

set input "a!===b=!=c"
set matchers {"==" "!=" "="}
lassign [multisplit $input $matchers] substrings matchinfo
puts $substrings
puts $matchinfo