[英]In Tcl, how to read in file by line and find a list of string (from another file) then append the line with a ##
我需要能够tp逐行读取文件,并找到一组(从另一个文件中)以字符串加上字符集(如{{somedata})开头的字符串,然后在该块后面附加##。
这是我到目前为止的内容:
set mydir <path to my dir>
#file name file.txt with content:
~>cat file.txt
Strng00 {
some data
}
Strng021 {
some data
}
Strng02 {
some data
}
Strng03 {
some data
}
Strng_dt {
some data
}
Strng01 {
some data
}
Strng02 {
some data
}
Strng03 {
some data
}
Strng_dt {
some data
}
Strng42 {
some data
}
Strng412
--
set list { Strng01 Strng02 Strng03 Strng_dt Strng42 } # May be read in the list from another file which needs to be matched
set fileIn [lindex $argv 0]
set fileInId [open $mydir/file.txt r]
set appendLine 0
foreach item $list {
set j 0
while {[gets $fileInId line ] != -1} {
if [regexp -all -line $item $line] { set appendLine 1 }
if $appendLine {
if [regexp {^\s*\}\s*$} $line] { set appendLine 0 }
set line "## $line"
}
puts $line
}
set j 1
}
结果仅显示列表的第一项:
Strng00
Strng021
Strng02
Strng03
Strng_dt
##Strng01 {
## some data
##}
Strng02
Strng03
Strng_dt
Strng42
我想在列出的每个项目之后得到##。在此先感谢。
这样可以解决您的问题吗?
set list { Strng01 Strng02 Strng03 Strng_dt Strng42 }
set fileInId [open $mydir/file.txt r]
while {[gets $fileInId line ] != -1} {
if {[regexp -line [join $list |] $line]} {
set line "## $line"
}
puts $line
}
编辑:处理更新的规范。
这是一种方法。 它利用了文件中的行与Tcl命令调用语法匹配的事实。
proc unknown {cmd args} {
set list { Strng01 Strng02 Strng03 Strng_dt Strng42 }
if {$cmd in $list} {
foreach line [split [info level 0] \n] {
puts "## $line"
}
} else {
puts [info level 0]
}
}
source file.txt
它的工作原理是这样的:在文件上使用source
意味着Tcl解释器尝试将每行的关键字用作命令名称,将{ ... }
部分用作参数。 由于关键字不是现有命令,因此解释程序将调用移交给unknown
命令,我们已对其进行了重新定义以识别相关的关键字,并在带有##
前缀的情况下打印完整的调用( [info level 0]
)。列表,否则就按原样打印调用。
文档: chan , foreach , if , info , join , open , proc , puts , regexp , set , source , split , unknown , 而
这是另一种做法:
while {[gets $fh line] != -1} {
set first [lindex [split [string trimleft $line]] 0]
puts [format "%s%s" [expr {$first in $list ? "##" : ""}] $line]
}
那找到行中的第一个单词,并检查它是否是$ list中的元素。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.