每天一个tcl脚本-第6天

原创 已于 2023-03-10 10:28:09 修改 · 1.3k 阅读 · 17 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#后端

于 2023-03-09 20:07:51 首次发布
该proc函数在INNOVUS环境下利用dbGet命令统计并报告特定类型的cell数量及其box坐标。dbGet是一个强大的工具，常用于P&R过程中的blockage设置和power布线等任务。

写一个proc函数，在INNOVUS环境中使用dbGet指令报告某类cell的数目及box坐标

proc report_cell_info {
   
   cell_type} {
   
   
     set cell_list [dbGet top.insts.cell.name $cell_type]
     set cell_count [llength $cell_list]
     puts "there are $cell_count cells of $cell_type"
     
     foreach cell $cell_list {
   
   
         selectInstByName $cell
最低0.47元/天 解锁文章
【TCL 脚本学习 1 -- tcl 脚本常用命令介绍】
CodingCos的博客
11-06 3103
中括号：在TCL中，中括号用于包含一段要立即执行的命令，然后将其结果替换为这个命令的输出。这是命令替换的一种形式。# 输出 "x is 20"在上面的例子中，""被包含在中括号内，所以它将被立即执行，其结果（20）将替换整个中括号表达式。大括号：在TCL中，大括号用于创建一个字面字符串，即大括号内的内容将不进行任何替换或变量解析。这在创建脚本或表达式时非常有用，可以防止数据被提前解析。# 执行脚本在上面的例子中，"set x 10;puts $x。
【tcl脚本实践Demo 1】文本生成、匹配、修改、读写
记录所学，分享知识，结识挚友
04-30 1731
在芯片设计的流程中，各种EDA工具在设计、综合、布局布线、验证、时序分析等等环节都会产出大量的文件信息。这些信息是海量的，如果单纯靠程序员自己查看信息效率很低并且很容易纰漏。所以脚本语言可以很好的解决这个问题，可以利用脚本语言匹配到敏感的信息，完成对信息的匹提取、修改、写入等一系列操作。从信息类型来看，经典的包括ERROR、INFO、WARNING、CRITICAL WARNING等。我们最关心的是ERROR和CRITICAL WARNING。所以我们需要在众多信息中提取出ERROR和CRITICAL WA
TCL脚本练手
qq1641070658的博客
05-15 361
1. list的使用。
每天一个tcl脚本练习-第1天
LRRRUI的博客
02-23 1036
使用tcl语言处理文件中字符串替换的脚本，适用正则匹配，regsub,string map
每天一个tcl脚本练习-第4天
LRRRUI的博客
03-03 730
编写tcl脚本统计代码文件的总行数以及有效代码行数（即去掉注释和空行）
每天一个tcl脚本练习-第5天
LRRRUI的博客
03-06 467
使用tcl语言提取文本数据并按指定格式输出
tcl脚本初学者教程，适合入门
12-01
TCL脚本是一种强大的、通用的编程语言，尤其在系统管理、嵌入式系统和自动化测试领域广泛应用。作为初学者，了解并掌握TCL的基本概念和语法是至关重要的。本教程旨在提供一个全面的入门指南，帮助你快速踏入TCL编程...
TCL 脚本笔记
weixin_46031018的博客
04-23 652
TCL学习笔记，来自邸老师时序分析课。
ModelSim的TCL脚本仿真流程
争取早日成为硅农
02-09 8312
Tcl全称是Tool Command Language，其在fpga设计、ic设计和验证中作为一种比较常用的脚本语言（其他的还有：perl,shell,python）
《Tcl脚本实用教程》
11-08
一个TCL脚本可以包含一个或多个命令。命令之间必须用换行符或分号隔开，下面的两个脚本都是合法的： set a 1 set b 2 或 set a 1；set b 2 TCL的每一个命令包含一个或几个单词，第一个单词代表命令名，另外的单词则是这个命令的参数，单词之间必须用空格或TAB键隔开。 TCL解释器对一个命令的求值过程分为两部分：分析和执行。在分析阶段，TCL 解释器运用规则把命令分成一个个独立的单词，同时进行必要的置换(substitution)； 在执行阶段，TCL 解释器会把第一个单词当作命令名，并查看这个命令是否有定义，如果有定义就激活这个命令对应的C/C++过程，并把所有的单词作为参数传递给该命令过程，让命令过程进行处理。
TCL/TK脚本实例
01-07
　Tcl (tool command language) 是一个简单的可嵌入 式解释型编程语言,能和C 协调运作,Tcl 程序能动 态的产生和执行。Tk 基于Tcl ,是X11 窗口系统的 新的工具开发包,和其它X11 工具包一样,由一组简 化构造窗口应用程序的C 库过程组成。Tk 是Tcl 最 有用的扩展,其所有的功能都可以通过Tcl 获得,这 给了Tk 很大的弹性,动态可控性,并使得它比其他 工具包功能更强大。
TCL脚本语言详细教程
06-13
该文件是关于TCL脚本语言详细教程，非常适合新手入门。
TCL脚本学习资料——入门必看
11-02
想学习TCL脚本语言的可以下载，压缩包有相关的TCL教程，很适合自学入门的新手看，需要的自己下
【TCL 脚本学习 2 -- tcl 脚本中如何调用 CSH 脚本】
CodingCos的博客
04-11 1555
命令在 TCL 中用于调用外部程序和命令。如果想要在 TCL 脚本中执行一个 CSH 脚本，需要确保该 CSH 脚本是可执行的，并且在适当的路径下。以上是在 TCL 脚本中调用和执行 CSH 脚本的基本方法。这可以用于集成不同脚本语言编写的脚本，实现更复杂的自动化任务。在 TCL 脚本中执行 C Shell (csh) 脚本可以通过。这行命令将会启动一个新的 C Shell 来执行。下面是一个基本的示例，假设有一个名为。在当前目录下，或者提供完整的路径。这段代码将会执行 CSH 脚本。
TCL脚本语言学习
weixin_48027403的博客
04-01 1013
语法：set 变量名 变量值变量取值: $变量名set a 100list:列表是Tcl中非常常用的数据结构之一，用于存储一组有序的元素。定义：set 列表名 {元素1 元素2 元素3}取值：$列表名输出：buff1 buff2 buff3。
TCL编程练习
weixin_44072819的博客
04-27 2175
1.用函数来实现对任意长度任意数列进行排序的功能，要求通过参数来选择从大到小排序，还是从小到大排序； 并将结果输出到一个文件里。例如，当输入2，9，4，3时，从大到小排序输出结果为：9，4，3，2 gets stdin不能用 为啥呢？？？ set string {2,9,4,3}; set newlist_file [open "result.txt" w+] set list [split $string ,] puts $list set mode "down" format "select mo
calibre tcl脚本 获取pad（lable坐标）
godping的博客
05-16 834
【代码】calibre tcl脚本 获取pad（lable坐标）
CHATGPT:使用tcl语言，随机生成5个点的坐标和3个矩形区域，打印出落在每个矩形区域内点的个数
qq_27019067的博客
04-18 303
【代码】CHATGPT:使用tcl语言，随机生成5个点的坐标和3个矩形区域，打印出落在每个矩形区域内点的个数。
编写一个tcl脚本，将一个字符串反转
最新发布
11-27
<think> 我们正在处理用户关于Tcl脚本中字符串反转的问题。用户希望得到一个能够反转字符串的Tcl脚本。 根据引用[2]和引用[3]，我们可以发现有两种方法：一种是直接处理字符串（引用[2]），另一种是处理列表（引用[3]）。 但是用户明确要求字符串反转，所以我们重点参考引用[2]的方法。 引用[2]的示例： #!/usr/bin/env expect # Reverse the string set a "1234567" set aLen [string length $a] set iLen [expr $aLen - 1] for {set i $iLen} {$i >= 0} {incr i -1} { append b [string index $a $i] } puts "b is <$b>" 这个脚本的思路是： 1. 设置原始字符串变量a。 2. 获取字符串长度aLen。 3. 计算最大索引（因为索引从0开始，所以最大索引是长度减1）。 4. 从字符串的最后一个字符开始（索引为iLen），向前遍历到第一个字符（索引0）。 5. 在循环中，使用string index $a $i获取当前索引的字符，并使用append命令将其附加到变量b中。 6. 最后输出反转后的字符串。 但是，我们也可以使用Tcl的内置命令来更简洁地实现。例如，使用`string reverse`命令（如果Tcl版本支持，8.5及以上版本支持）。 由于用户没有指定Tcl版本，我们可以提供两种方法：一种是使用循环（兼容性更好），另一种是使用内置命令（更简洁）。 方法1（循环，兼容旧版本）： set str "hello" set reversed "" set len [string length $str] for {set i [expr {$len-1}]} {$i >= 0} {incr i -1} { append reversed [string index $str $i] } 方法2（使用string reverse，需要Tcl8.5+）： set str "hello" set reversed [string reverse $str] 考虑到用户可能使用的是较新版本的Tcl，我们可以优先推荐使用内置命令，因为它更高效。但如果用户需要兼容旧版本，则可以使用循环方法。 因此，我们可以这样回答： 在Tcl中，反转字符串可以通过两种方式实现： 1. 使用Tcl 8.5及以上版本的内置命令`string reverse`。 2. 使用循环逐个字符反转（适用于任何版本）。 示例代码（方法1：内置命令）： ```tcl #!/usr/bin/env tclsh set original "hello world" set reversed [string reverse $original] puts $reversed ``` 示例代码（方法2：循环）： ```tcl #!/usr/bin/env tclsh set original "hello world" set reversed "" set len [string length $original] for {set i [expr {$len-1}]} {$i >= 0} {incr i -1} { append reversed [string index $original $i] } puts $reversed ``` 这两种方法都可以实现字符串反转。如果您的Tcl版本是8.5或更高，推荐使用`string reverse`，因为它更简洁高效。 注意：在循环方法中，我们使用了`expr {$len-1}`，这是一种推荐的写法，使用大括号包裹表达式可以避免额外的替换并提高效率。 如果用户需要反转一个中文字符串，这两种方法同样适用，因为Tcl的字符串是基于Unicode的（但要注意Tcl的版本，8.5及以上版本对Unicode支持良好）。在旧版本中（如8.4），对于多字节字符（如中文），循环方法可能会出现乱码，因为`string index`是按字节索引而不是按字符索引。所以对于多字节字符，建议使用8.5以上版本并采用`string reverse`。 如果用户必须使用旧版本且要处理多字节字符，那么需要先将字符串转换为字符列表，然后反转列表，再合并。但这种情况相对复杂，用户如果没有特别说明，我们可以暂时不考虑。 根据引用[1]，Tcl中字符串是Unicode字符串，所以在8.5及以上版本中，`string reverse`可以正确处理Unicode字符（包括中文）。在循环方法中，如果Tcl版本是8.5及以上，`string index`也是按字符索引的，所以也可以正确处理多字节字符。但在8.4及以下版本，循环方法只能按字节处理，因此不适用于多字节字符。 因此，我们应提醒用户注意Tcl版本。 回答结构： 1. 介绍两种方法。 2. 分别给出示例代码。 3. 讨论版本和字符集的注意事项。 最后，生成相关问题。 相关问题： 1. 如何在Tcl中反转一个列表？ 2. Tcl的字符串操作还有哪些常用命令？ 3. 在Tcl中如何正确处理中文字符串？ 注意：用户之前的问题是关于字符串反转，所以第一个相关问题可以是列表反转（因为引用[3]就是反转列表），另外两个可以拓展到字符串操作和中文处理。 根据引用[3]反转列表的示例，我们可以生成第一个相关问题。 </think>### Tcl字符串反转脚本编写方法 在Tcl中实现字符串反转有两种常用方法，根据您的需求选择： #### 方法1：使用循环逐字符反转（兼容所有版本） ```tcl #!/usr/bin/env tclsh # 原始字符串 set str "hello world" # 反转操作 set reversed "" set len [string length $str] for {set i [expr {$len-1}]} {$i >= 0} {incr i -1} { append reversed [string index $str $i] } # 输出结果 puts "Original: $str" puts "Reversed: $reversed" ``` **执行结果：** ``` Original: hello world Reversed: dlrow olleh ``` #### 方法2：使用内置命令（Tcl 8.5+ 推荐） ```tcl #!/usr/bin/env tclsh # 直接使用string reverse命令 set str "hello world" set reversed [string reverse $str] # 输出结果 puts "Original: $str" puts "Reversed: $reversed" ``` ### 关键说明： 1. **循环方法原理**： - 通过`string length`获取字符串长度 - 从最后一个字符开始（索引=长度-1） - 使用`string index`提取单个字符 - 通过`append`倒序拼接字符 2. **多字节字符支持**： ```tcl set chinese "你好世界" puts [string reverse $chinese] ;# 输出: 界世好你 ``` Tcl 8.5+ 的`string reverse`能正确处理Unicode字符（包括中文）[^1] 3. **性能建议**： - 短字符串：两种方法差异不大 - 长字符串(>10KB)：`string reverse`快100倍以上 - 超长字符串：使用Tcl的C扩展优化 ### 注意事项： - 方法1在Tcl 8.4及以下版本中可能无法正确处理多字节字符 - 若需要反转单词顺序（而非字符），需配合`split`和`join`： ```tcl set reversed_words [join [lreverse [split $str " "]] " "] ```
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值