
Tcl
tcl
时钟树上的小猴子
这个作者很懒,什么都没留下…
展开
-
Tcl——统计文件中某个字符串的个数
使用如下代码:set file_handle [open a.txt r] #read命令读取文件内容puts [regexp -all "1" [read $file_handle]] #all参数返回匹配项总数原创 2020-12-10 16:39:09 · 2167 阅读 · 0 评论 -
Tcl——逐行读取文件内容直到文件末尾
第一种方法:set fp [open grade.txt r]while {[gets $fp line]!=-1} {puts $line}第二种方法:set fp [open grade.txt r]while {![eof $fp]} {gets $fp lineputs $line}原创 2020-12-10 16:37:39 · 11352 阅读 · 8 评论 -
Tcl——无限循环
使用代码如下:while {1} { #无限循环,注意}和{之间的空格}原创 2020-12-10 16:29:10 · 657 阅读 · 0 评论 -
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原创 2020-12-10 16:25:40 · 408 阅读 · 0 评论 -
在tcl脚本中调用bash shell命令
1.直接调用要执行的命令exec sh -c {design_vision} #其中design_vision是要执行的shell命令2.将要执行的shell命令写在脚本里,调用脚本文件exec bash test.shtest.sh文件内容如下:引用:http://static.kancloud.cn/dlover/note/1677677https://blog.youkuaiyun.com/miao20091395/article/details/83308323...原创 2020-10-06 21:07:58 · 6996 阅读 · 0 评论 -
tcl编程练习1
用函数来实现对任意长度任意数列进行排序的功能,要求通过参数来选择从大到小排序,还是从小到大排序; 并将结果输出到一个文件里。例如,当输入2,9,4,3时,从大到小排序输出结果为:9,4,3,2。set string {2,9,4,3}set newlist_file [open "newlist.txt" w] #w,以只写方式写入文件set list [split $string ,]puts $listputs "please select mode:" #原创 2020-09-09 21:06:16 · 1844 阅读 · 0 评论