正则表达式学习-TCL

#a 的3、4之间有3个空格

% set a "1 a 3   4 5
aaa xx11 22 3"
1 a 3   4 5
aaa xx11 22 3
#把a用空格分开

% split $a
1 a 3 {} {} 4 5 aaa xx11 22 3
% set num [lindex [split $a] 2]
3
% set num [lindex [split $a] 3]
% set num [lindex [split $a] 4]
% set num [lindex [split $a] 5]
4
% set num [lindex [split $a] 6]
5
% set num [lindex [split $a] 7]
aaa
%

###########

% regexp ^a b
0
% regexp ^a abc
1
% regexp $a abc
0
% regexp $a abca
0
% regexp $a abca
0
% regexp a$ abca
1
% regexp a$ abcad
0
% regexp ad$ abcad
1
% regexp ae$ abcad
0
% regexp \ma abcad
0
% regexp \mabcad\M abcad
0

% regexp ? abcad
couldn't compile regular expression patter