对比测试脚本语言Tcl和Python的语法以及处理(实战篇)

#本脚本的功能是把最近的版本找出来,版本文件夹的格式例:Ver2C_20110102
#按照文件夹的日期来判断是否最新.用tcl和python语言分别写出来.
#在tcl中用到正则表达式,python直接用索引.

Tcl:
#初始化信息,后续会移动到配置文件中
set FilePath  [file join D:/ TclAndPyhton TestDir]
set PointP  [file join D:/ TclAndPyhton PonitDir]

#过程作用:根据特定的条件分析最新的文件夹
#FPath:存放目录的文件夹
proc VerDir {FPath } {

 #获取文件夹下所有目录信息
 set AllDir [glob -directory $FPath {*/}]
 set ODir1 [lindex $AllDir 0]
 
 #录入第一条文件夹的安装包时间.
 regexp -nocase {.*_([0-9]*).*} $ODir1 x VerTime
 set LastTime $VerTime
 set LFilePath $ODir1
 
 #把每一个文件夹的时间进行比较,取出最新的文件夹返回给函数
 for {set i 1} {$i < [llength $AllDir]} {incr i 1} {
  set ODir [lindex $AllDir $i]
  regexp -nocase {.*_([0-9]*).*} $ODir x VerSTime
  
  for {set j 0} {$j < 8} {incr j 1} {
   #这里本来想直接减,但是不知道出什么错误,结果一直是负数,就改变了方法
   set TimeRt [expr [string index $VerSTime $j] - [string index $LastTime $j]]
   if {$TimeRt > 0} {
    set LastTime  $VerSTime
    set LFilePath $ODir
    break
   }
  }

 }
 return $LFilePath
}

puts [VerDir $FilePath]

python:

import glob
# coding=utf-8
#初始化信息,后续会移动到配置文件中
FilePath = 'D:\TclAndPyhton\TestDir\\'
AllDir = glob.glob(r'D:\TclAndPyhton\TestDir\*')

#过程作用:根据特定的条件分析最新的文件夹
#FPath:存放目录的文件夹
def VerDir(AL):
 ODir1 = AL[0]
 #录入第一条文件夹的安装包时间.
 VerTime = int(ODir1[-8:])
 print VerTime
 LastTime = VerTime #LastTime 没用到额。
 LFilePath=ODir1
 
 #把每一个文件夹的时间进行比较,取出最新的文件夹返回给函数
 for  element in AL:
  VerSTime = int(element[-8:])
  print VerSTime
  TimeRt=VerSTime-LastTime
  if TimeRt > 0:
   LastTime =  VerSTime
   LFilePath=element
 return LFilePath

#非空判断
if AllDir != []:
 aaa = VerDir(AllDir)
 print aaa

后记:
python没有大括号来编写控制语句和过程比较不适应,同时字符和整形转换较多,不过语法简洁.
tcl的语法用起来没有那么简洁,但是字符串和列表的处理较好点.