实现功能:
寻找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