while {[gets stdin e]>0} {set n {} foreach m [regexp -all -inline .\\d* $e] {set n [expr $n$m]} puts "[regsub -all \\D $e { \0 }] = $n"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page