tcl regexp regsub

regsub:替換字符串

regexp：匹配

set cellName INV1_90S9T16L
if {[regexp {16UL$} $cellName match]==0} {
puts "1111111111111111111111"
                if {[regsub {16.*$} $cellName "16UL" newCell]} {
                 puts "222222222222222222"
puts "$newCell"
                    }

                    }
 

打印結果：

1111111111111111111111
222222222222222222
INV1_90S9T16UL