在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"] 
}