TCL with SNPS file exists&file rename/copy & redirect & lsearch & split

最新推荐文章于 2023-07-14 17:38:13 发布
原创 最新推荐文章于 2023-07-14 17:38:13 发布 · 2.6k 阅读 · 19 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#DFT

本文介绍了TCL语言中的一些基本文件操作命令，如fileexists用于检查文件是否存在，filerename和filecopy用于文件重命名和复制，并讨论了如何使用-force选项处理已存在文件。此外，还讲解了redirect命令将输出重定向到文件以及追加内容的使用。同时，文章还涵盖了lsearch命令在列表中的查找功能以及split命令对字符串的分割操作。这些命令对于TCL编程中的文件管理和数据处理至关重要。

文章目录


本篇文章继续介绍一些SNPS相关的tcl用法

file exits

file exists适用于检测文件是否存在的，如下图所示，如果存在dc_scan_stitch_xg.tcl的脚本，那么返回为1，没有的话就返回为0
在这里插入图片描述

file rename，copy

file rename 是对文件重新命名，如果有相同的名字，那么需要使用-force选项，就会强制命名，并且会覆盖掉
在这里插入图片描述
file copy 是对文件进行copy，如果有相同的名字，那么需要使用-force选项，就会强制进行copy。
在这里插入图片描述

redirect

重定向命令的输出内容到一个文件当中
redirection和linux中的> 以及>>的功能是一样的

如下图所示，
定义了一个叫 plus 的 proc，
然后用redirect p.out {plus 12 13}
那么plus 12 13输出的结果就会被写到p.out里面去。
注意格式：


                

                
                
        

    


  


        

            

                      
                        最低0.47元/天 解锁文章
                          
                      
            

        


    



                



	

		

			

				
					
tcl脚本语言之file的常见用法

				
			

			

				

					hzmscut的博客
				

				

					05-24
					
					4657
					
				

			

		

		

			
				
这些命令覆盖了从文件属性获取、修改、复制、删除、路径处理等广泛的文件操作需求。命令用于处理文件系统操作。

			
		

	



                

            
              



	

		

			

				
					
tlcl-redirection（重定向）

				
			

			

				

					Cgsyuan
				

				

					05-29
					
					2886
					
				

			

		

		

			
				
重定向（redirection）
所谓的重定向可以简单的理解为重新指定输入输出的方向，既然是重新制定输入输出的方向，那么原来的输入输出方向是如何的呢？
计算机的I/O有标准输入、标准输出、输出错误，默认的标准输入是与键盘相连接的，标准输出是与屏幕相连接的，至于输出错误也是默认连接到屏幕。
而I/O重定向可以允许我们更改这些默认连接，从文件中读取内容，将输出写入到文件等等，都是重定向。



			
		

	



              


  
              

                


	

		

			

				
					
TCL——访问文件（一）

				
			

			

				

					m0_59557249的博客
				

				

					05-13
					
					6490
					
				

			

		

		

			
				
Tcl 中处理文件和目录的命令是非常重要的，因为在 Tcl 中，文件和目录的处理是非常常见的操作。例如，一个 Tcl 脚本可能需要读取一个配置文件，或者需要创建一个新的日志文件，或者需要遍历一个目录中的所有文件，这些都需要使用文件和目录处理命令。此外，这些命令还可以帮助开发人员更好地管理文件和目录，确保文件和目录的安全性和可靠性。是文件或者目录的完整路径。从根目录开始，一直到文件或者目录的位置。：是文件或目录相对于当前工作目录的路径。来实现，覆盖已存在的文件。的机制，便可实现将一批文件从原来的目录。

			
		

	





	

		

			

				
					
Synopsys Tcl学习二

				
			

			

				

					weixin_45799954的博客
				

				

					04-29
					
					1101
					
				

			

		

		

			
				
Tcl学习字符串数量统计控制流，函数和进程
字符串数量统计
#write into file tmp1
redirect -file tmp1 {report_constraint -all_violators}  
#calculate total violations
set TNV [exec grep -c "VIOLATED" tmp1]
echo "\nthe total number of violations is:\t$TNV"
file delete tmp1

redirect -va

			
		

	



		

			
		



	

		

			

				
					
Linux——这一篇文章搞定重定向！

				
			

			

				

					REPCHAOCHAO的博客
				

				

					08-12
					
					682
					
				

			

		

		

			
				
一文详解重定向！

			
		

	





	

		

			

				
					
tcl中文件访问

				
			

			

				

					zhuzhiqi11的专栏
				

				

					07-02
					
					6917
					
				

			

		

		

			
				
TCl FPGA .mif

			
		

	





	

		

			

				
					
Tcl/Tk -- File Operation

				
			

			

				

					黑仔ZJM
				

				

					01-10
					
					1478
					
				

			

		

		

			
				
# file operation in Tcl/TK

# open file for read/write
#
# open way:
#
#	r : read only, file should exist.
#	r+: read and writ, file should exist.
#	w : write only,if file exist, clear it, else create

			
		

	





	

		

			

				
					
TCL with SNPS llength&lappend&get_cells&get_ports

				
			

			

				

					ciscomonkey的博客
				

				

					08-15
					
					1304
					
				

			

		

		

			
				
文章目录llengthlappendget_ports&report_portget_cells
本篇博客继续介绍SNPS相关的TCL编程
llength
llength是llist的一个操作，属于通用的tcl语法
如下图所示，llength返回的是列表的元素数量，如下图所示：

lappend
lappend是在原来list里面新增列表，如下图所示，如果没有指定已经存在的列表的名字，tool会用第一个元素来创建list作为名字

get_ports&report_port
从当前的desi

			
		

	





	

		

			

				
					
TCL with SNPS get_attributes&get_lib_attribute&list_attributs&report_attribute

				
			

			

				

					ciscomonkey的博客
				

				

					08-14
					
					2191
					
				

			

		

		

			
				
文章目录get_attribute获取lib_cell属性值get_lib_attributelist_attributsreport_attribute
本篇文章介绍的是SNPS关于attrubites相关的一些常用的用法。
get_attribute获取lib_cell属性值
返回由design或者library组成的list 的属性值

实际case如下图所示，可以看出get_attributes是获取的lib的属性值信息
下面是获取面积信息

get_lib_attribute
返回一组librar

			
		

	





	

		

			

				
					
TCL with SNPS - get_object_name&sizeof_collection&string

				
			

			

				

					ciscomonkey的博客
				

				

					07-20
					
					1314
					
				

			

		

		

			
				
文章目录get_object_nameget_cellssizeof_collectionTCL中的string操作string操作 matchstring操作 first
get_object_name
这个cmd是用于返回a list of name of objects in a collection
>get_object_name [current_design]
Current design is 'top'

get_cells
返回instance的名字
sizeof_collecti

			
		

	





	

		

			

				
					
Tcl输入输出重定向Demo

				
			

			

				

					06-04
				

			

		

		

			
				
C++编程嵌入Tcl脚本应用程序中经常要进行输入输出重定向处理
网上很难找到完整编程实例,本Demo在tcl8.4.20上调式OK

			
		

	





	

		

			

				
					
tcl(剔扣)获取文件信息命令

				
			

			

				

					12-21
				

			

		

		

			
				
剔扣语言操作文件命令，TCL提供了两个命令进行文件名操作：glob和file，用来操作文件或获取文件信息

			
		

	





	

		

			

				
					
data_dir='/public/work/Personal/wuxu/qiantao_17' for file1 in ${data_dir}/*.fasta; do     for file2 in ${data_dir}/*.fasta; do         if [ "$file1" != "$file2" ]; then             touch  snp_indel.end.sh  &&  cat  snp_indel.end.sh && \             export PATH=/public/work/Personal/pangshuai/software/conda/miniconda3/bin/:${PATH} && \             nucmer --mum -t 8 -g 1000 -p ${file1##*/}.${file2##*/}.ref_based.nucmer $file1 $file2 && \             delta-filter -1 -l 200 ${file1##*/}.${file2##*/}.ref_based.nucmer.delta > ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter && \             dnadiff -d ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter -p ${file1##*/}.${file2##*/}.ref_based.nucmer && \             show-coords -rcloT ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter > ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.coords && \             show-coords -THrd ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter > ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.syri.coords && \             show-snps -ClrTH ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter > ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp && \             show-diff ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter > ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.inv && \             perl /public/work/Pipline/Structural_Variation/pipeline/2.1.1/bin/filter_the_MUmmer_SNP_file.pl ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp.SNPs ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp.Insertions ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp.Deletions 10000000 && \             touch snp_indel.end.tmp && \             mv snp_indel.end.tmp snp_indel.end && \             sleep 10         fi     done done   ,增加一个判断，使/public/work/Personal/wuxu/qiantao_17路径下以.fasta结尾的文件两两一组不分前后只组合一次，然后再执行touch 后面的代码

				
			

			

				

					06-03
				

			

		

		

			
				
Variation/pipeline/2.1.1/bin/filter_the_MUmmer_SNP_file.pl ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp ${file1##*/}.${file2##*/}.ref_based.nucmer.delta.filter.snp.SNPs ${file1##*/}.${...

			
		

	





	

		

			

				
					
TCL练习2：文件I/O

				
			

			

				

					yinyeyy的专栏
				

				

					04-06
					
					626
					
				

			

		

		

			
				
练习进行文件操作，包括打开文件、创建文件、读写文件等。


set path [pwd]/Desktop/FileIO/
set name "dont_touch.xdc"
set newName "dont_touch_new.xdc"
set optr "r"
set optw "w+"

set rdFile ""
set retval [eval catch {{set fdr [eval open [append rdFile $path $name] $optr]}} msg]
if { $re

			
		

	





	

		

			

				
					
TCL脚本之if判断存在

				
			

			

				

					myx_mike的博客
				

				

					07-14
					
					5926
					
				

			

		

		

			
				
tcl脚本

			
		

	





	

		

			

				
					
TCL的file命令

				
			

			

				

					iqifenxia的博客
				

				

					11-10
					
					1万+
					
				

			

		

		

			
				
最近，看到redis自己的测试代码，于是简单了解一下，总结一下file命令的简单实用,不废话，上代码


#!/usr/bin/tclsh

set path $argv0

# atime: 以UNIX时间戳形式，返回/设置文件的访问时间
puts "atime: [file atime $path]"

# 返回/设置文件属性信息
puts "attributes: [file attributes $path]"

# 返回单个文件属性信息
puts "attibutes, permission: [

			
		

	





	

		

			

				
					
判断文件夹是否存在并创建

				
			

			

				

					hzhlog 的专栏
				

				

					04-21
					
					1338
					
				

			

		

		

			
				
Code:


CFileFind fFind;     //如果文件夹不存在，则创建此文件夹   if (!fFind.FindFile(m_szAppIniPath))   {       SECURITY_ATTRIBUTES attrib;       attrib.bInheritHandle = FALSE;       attrib.lpSecurityDescriptor =

			
		

	





	

		

			

				
					
tcl学习材料

					
热门推荐

				
			

			

				

					囩仴煳
				

				

					09-18
					
					1万+
					
				

			

		

		

			
				
网上收集的tcl学习资料，有的是从别人的空间转的，但因时间久了，没有记下其个人版权，若有争议，请谅解1.1        TCL语言简介Tcl是一种很通用的脚本语言，它几乎在所有的平台上都可以解释运行，功能强大。TCL简单易学，功能强大。TCL经常被用于快速原型开发、脚本编程、GUI和测试等方面。是tool command language的缩写，发音为"tickle”

			
		

	





	

		

			

				
					
TCL脚本递归列出文件

				
			

			

				

					STK_tianwen的专栏
				

				

					06-16
					
					3231
					
				

			

		

		

			
				
<br />proc ListFiles { dir } {<br />    if {![file exists $dir] || ![file isdirectory $dir]} {<br />        puts "$dir is not exist or not a directory!"<br />        return<br />    }<br />    <br />    set files [glob -nocomplain -- $dir/*]<br />    <br /

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		评论	
	

  

	
    

      

      

      

        
        

          
          

            

              成就一亿技术人!
            

            

              拼手气红包6.0元
            

          

        

        

          

            还能输入1000个字符
          

          

             
          

          

            

              红包
              添加红包
            

            

              表情包
              插入表情
              

                

              

            

            

              表情包
              代码片
              

                
              

            

            

              
              
              
              
              
              
              
            

          

        

      

    

		

			

			

			

					 条评论被折叠 查看
			

			

				
			

		

	

	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值