学了三天TCL，写了个小程序，到此为止

为了用VTK，硬着头皮看了三天TCL，用惯了C++风格的语言，用这个实在不习惯。用户又少。等这个项目结束就扔了它！这几天的知识大概也够应付看VTK GUIDE的了。

最近看到AFI百部爱情（PASSIONS）经典，它是按名次排序的，我想把它按年代排序，就想到了TCL在字符处理上还是有点特色的，于是来练练手。

原来网页上的：
1、CASABLANCA (1942) 卡萨布兰卡，北非谍影
2、GONE WITH THE WIND (1939) 乱世佳人
3、WEST SIDE STORY (1961) 西区故事
4、ROMAN HOLIDAY (1953) 罗马假日
5、AN AFFAIR TO REMEMBER (1957) 金玉盟，纽约帝国大厦的顶楼,浪漫开始的地方
。。。。。。（中间省略）
96、BAREFOOT IN THE PARK (1967) 冷战夫妻，公园赤足，赤足在停车场，裸足佳偶
97、GREASE (1978) 油脂，火爆浪子
98、THE HUNCHBACK OF NOTRE DAME (1939)巴黎圣母院，钟楼驼侠，钟楼怪人
99、PILLOW TALK (1959) 枕边书，枕边禁书
100、JERRY MAGUIRE (1996) 征服情海，甜心先生

TCL代码：
#隐藏窗口，这里用不到 wm withdraw . #打开文本 set fileid [open d:/t.txt] #结果用的列表 set allmovies [list] #每次读入一行到aline while {[gets $fileid aline] >= 0} { #正则表达式（用4个括号来匹配四个区域） regexp {([1-9][0-9]?)(.*)/(([0-9]*)/)(.*)} $aline match no enname year chname set tmpsz "" #临时结果 append tmpsz $year " " $no " " $chname #加入列表 lappend allmovies $tmpsz } #排序，结果存入sortByYear set sortByYear [lsort -ascii $allmovies] #输出结果 foreach movie $sortByYear { puts $movie }

最后结果：
1920 71  走向东方，江水东流
1921 80  酋长
1927 63  日出
1930 83  摩洛哥
1933 24  金刚
1934 38 一夜风流
1935 42  安娜卡列妮娜
1936 30  欢乐时光
1937 33  茶花女
1937 77  真相追击，惊人事迹
1938 51  育婴记，育婴奇谭
1939 15  呼啸山庄
1939 2  乱世佳人
1939 32  卿何薄命，黑暗的胜利，垂死的胜利
1939 40  尼诺奇卡，俄宫艳使
1939 79  红衫泪痕
1939 98 巴黎圣母院，钟楼驼侠，钟楼怪人
1940 28  街角商店，街角书店
1940 44  费城故事
1941 26  淑女夏娃，淑女伊芙，夏娃小姐
1942 1  卡萨布兰卡，北非谍影
1942 23  扬帆，旅人恋人
1942 36  鸳梦重温
1942 74 而立之年的女人，本年度女人， 小姑独处
1944 60  逃亡
1944 84  双重赔偿，双重保险
1946 49  邮差总按两次铃，欲火焚身
1946 8  美好生活，奇妙的生活;风云人物;莫负少年头
1946 86  美人计
1947 73  幽灵与未亡人
1951 14  非洲女王号
1951 39  一个美国人在巴黎，花都舞影
1951 53  郎心如铁
1951 67  欲望号街车
1952 16 雨中曲
1952 76  篷门今始为君开
1953 20  乱世忠魂
1953 4  罗马假日
1954 43  星海浮沉录，爱情万年青
1954 54  萨布里娜，龙凤配
1955 46  捉贼记，间谍
1955 59  野宴
1955 64  马蒂
1955 85  生死恋
1955 95 小姐与流氓，贵妇和流浪汉，
1956 31  国王与我
1957 5  金玉盟，纽约帝国大厦的顶楼,浪漫开始的地方
1958 18  迷魂记
1958 35 金粉世家，金粉世界
1959 92  乞丐与荡妇
1959 99  枕边书，枕边禁书
1960 62  桃色公寓
1961 3  西区故事
1961 47  天涯何处无芳草，青春梦里人
1961 61  第凡内早餐
1964 12  窈窕淑女
1965 27  音乐之声
1965 7  日瓦格医生
1966 89  谁怕弗吉尼亚.沃尔夫，灵欲春宵
1967 52  毕业生
1967 57  俪人行
1967 58  猜猜谁来吃晚餐
1967 65  邦尼和克莱德
1967 96  冷战夫妻，公园赤足，赤足在停车场，裸足佳偶
1968 41  妙女郎
1970 9  爱情故事
1970 9  爱情故事
1971 69  哈罗德和莫德
1972 48  巴黎最后的探戈
1972 68  爱的大追踪
1973 6  往日情怀
1977 11  安妮霍尔
1977 81 再见女郎
1978 78  归来，荣归，返乡
1978 97  油脂，火爆浪子
1979 66  曼哈顿
1981 22  金色池塘
1981 55  烽火赤焰萬里情，乱世情天
1981 94  体热，要命的吸引力
1982 29  军官和绅士
1985 13  走出非洲
1985 82 目击者，证人
1987 17  月满抱佳人，发晕，月色撩人，月晕
1987 72  罗克辛纳，爱上罗珊
1987 88  公主新娘
1987 93  辣身舞，热舞十七
1988 87  布拉格之恋，布拉格的春天
1988 91  打工女郎，上班女郎
1989 25  当哈里遇上莎莉/90男欢女爱
1990 19  人鬼情未了
1990 21  风月俏佳人
1991 34  美女与野兽
1993 45  西雅图夜未眠
1995 70 理智与情感
1995 75  白宫夜未眠，白宫奇缘
1995 90  廊桥遗梦
1996 10  征服情海，甜心先生
1996 56 英国病人
1997 37  泰坦尼克号
1998 50  莎翁情史

可以看出动态语言的效率的确是高（这里主要是正则表达式），但TCL的语法实在不想用，以后多研究研究Python吧。