[1] 某一数组，逐个赋值
foreach P [list {a1 a2 a3 a4} {b1 b2 b3 b4} {c1 c2 c3 c4}] {
set Rllx [lindex $P 0]
set Rlly [lindex $P 1]
set Rurx [lindex $P 2]
set Rury [lindex $P 3]
}
[2] regexp 作用：匹配正则表达式及字符串。
set string "/fs/omp_hlb_16/shusenwang/lb_otn_otu_master_top/REV0201_0301_ 210907_0000-func_pnr1_flow_0907"
set result [regexp {\/(REV[^\.]+)} $string match var1 var2]
<@dahu>puts "$match"
/REV0201_0301_ 210907_0000-func_pnr1_flow_0907
<@dahu>puts "$var1"
REV0201_0301_ 210907_0000-func_pnr1_flow_0907
<@dahu>puts "$var2"
啥都没有
[3]
网友评论