regexp -all

yuanpin318

regexp -all 在tcl中经常使用。

如果不用-all，return value只是1 或 0，表示match 还是不match。

用了-all，return value 就是match的个数。

#!/usr/bin/tclsh
#
set va "acc acc ya yb tcc acc"

set b [regexp acc $va]
set c [regexp -all acc $va]


puts "regexp: word count of acc in va = $b"
puts "regexp -all: word count of acc in va = $c"


===========================
结果：

regexp: word count of acc in va = 1
regexp -all: word count of acc in va = 3