tcl regexp求助

xkwwm

请问如何通过regexp将字符串"image::main::src::123://127.0.0.1:8080/images/program3.jpg::click::NULL" 用"::"分隔成：
image   
main   
src  
123://127.0.0.1:8080/images/program3.jpg   
click     
NULL

小弟初学tcl 还请各位热心帮忙，谢谢！

[ 本帖最后由 xkwwm 于 2010-1-26 19:00 编辑 ]

wolongsuxing

用regexp我不会，但是我是这样解决你的问题的：
set str "image::main::src::123://127.0.0.1:8080/images/program3.jpg::click::NULL";
eval concat [split $str ::];

这样就得到了下面的结果：
image   main   src  123://127.0.0.1:8080/images/program3.jpg    click     NULL

wn0112

set str image::main::src::123://127.0.0.1:8080/images/program3.jpg::click::NULL
set result [ regsub -all {::} $str "\n" ]
puts $result