#Tcl 如何在文件中找到特定行的行數並列出

Question

我有许多文件里面包含了这么一段字串
#INSTALL_VERSION =Aa/10.10-s1_1
#INSTALL_VERSION =Aa/10.12-s1_1
#INSTALL_VERSION =Aa/10.13-s1_1
INSTALL_VERSION =Aa/10.15-s1_1
#代表之前使用的版本 没有#代表最新版本
我想要找出每个文件中粗体字的部分
我的想法是先找到最新版本的行数 设为n*(因为差一个#符号 感觉会好找些)
然后把上一行设n-1
然后在把他们一起列在表格中

我是这么写的
set idx [lsearch -regexp $lines {^INSTALL_VERSION =} ]
regexp {\d+} [lindex $lines $idx] current
regexp {\d+} [lindex $lines $idx-1] previous

但现在的问题是我没法抓到idx行数 并且puts $current $previous 没法显示一整行 他只能列出两个数字
我在想是不是regexp $lines {^INSTALL_VERSION =} 这部分描述出了问题 但不知道从何改起

还有 如果最新版本(INSTALL_VERSION =Aa/10.15-s1_1)的上面已无最新版的话
该如何显示 没有上一版

謝謝

Answer 1

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。