tcl编程练习2

实现功能：

寻找exercises文件夹下的txt文件，并删除掉带阿拉伯数字的txt文件，然后把剩下的txt文件名及其内部包含的1的个数打印出来。输出格式为：

a.txt 
4 
b.txt 
6 
c.txt 
1

使用代码如下：

cd exercises
#puts [glob *.txt]
#puts [glob {*[0-9]*.txt}]
#file delete {*}[glob {*[0-9]*.txt}]
puts [glob *.txt]
set filelist [glob *.txt]
set newlist [lsort $filelist]
puts $newlist
set num [llength $newlist]
#puts "num=[llength $newlist]"
set a 0
while { $a <$num} {
set file_handle [open [lindex $newlist $a] r]
set sum 0
while {![eof $file_handle]} {
gets $file_handle line
if {[string match $line "1"]} {
incr sum
}
}
puts [lindex $newlist $a] 
puts $sum
incr a
}

程序运行结果

[li@localhost test]$ tclsh test.tcl
a.txt c.txt b.txt
a.txt b.txt c.txt
a.txt
4
b.txt
6
c.txt
1

更多技术干货，欢迎关注微信公众号：IC小白