在TCL中匹配正则表达式之前和之后的打印行

Question

我希望能够在我遇到文件中的匹配模式之前打印10行和10行。我通过正则表达式匹配模式。我需要一个TCL特定的解决方案。我基本上需要相当于grep -B 10 -A 10功能。

在此先感谢！

Answer 1

想到的唯一机制就是让您将输入数据拆分为行列表。然后，您需要扫描列表，并且每当您找到匹配项时，都会从列表中输出合适的条目集合。

据我所知，没有内置的，简单的方法来做到这一点。

可能有些事在tcllib有用。我自己使用grep。

Answer 2

如果数据“相对较小”（在现代计算机上实际可能是100MB或更多），那么您可以将它全部加载到Tcl中并在那里处理。

# Read in the data 
set f [open "datafile.txt"] 
set lines [split [read $f] "\n"] 
close $f 

# Find which lines match; adjust to taste 
set matchLineNumbers [lsearch -all -regexp $lines $YourPatternHere] 
# Note that the matches are already in order 

# Handle overlapping ranges! 
foreach n $matchLineNumbers { 
    set from [expr {max(0, $n - 10)}] 
    set to [expr {min($n + 10, [llength $lines] - 1)}] 
    if {[info exists prev] && $from <= $prev} { 
     lset ranges end $to 
    } else { 
     lappend ranges $from $to 
    } 
    set prev $to 
} 

# Print out the ranges 
foreach {from to} $ranges { 
    puts "=== $from - $to ===" 
    puts [join [lrange $lines $from $to] "\n"] 
}