在搜索结果中包含行号

Question

我正在尝试弄清楚如何在日志文件中搜索“word”并包括在哪一行找到“word”。

还有，是否可以从下往上阅读？

有什么想法吗？

谢谢！

    set seen_trigger2 ".foo"
    bind pub -|- $seen_trigger2 seen2:main


    proc number {list} {
    lmap item $list {list [incr number] $item}
    }

    proc seen2:main {nick uhost hand chan text} {

    set f [open /home/mydir/eggdrop/logs/mylog.txt]
    set lines [split [read $f] "\n"]
    close $f

    set pattern $text

    set reverseNumberedLines [lreverse [number $lines]]


    foreach lineInfo [lsearch -all -inline -index 1 $lines $pattern] {
    lassign $lineInfo lineNumber lineContent
    putlog "$lineNumber : $lineContent"
    }
    }

...

谢谢格伦杰克曼！

谢谢 Donal 研究员！

Answer 1

从下到上读取是相当昂贵的，除非在所有行的长度完全相同的退化情况下。更容易阅读全部内容，拆分成行，然后反转。

# Some features used aren't in 8.5 and before
package require Tcl 8.6

# Generates “line” numbers
proc number {list} {
    lmap item $list {list [incr number] $item}
}

# Classic get-all-the-lines code snippet
set f [open theFile.txt]
set lines [split [read $f] "\n"]
close $f

# Number and reverse
set reverseNumberedLines [lreverse [number $lines]]

# Find the matching lines
foreach lineInfo [lsearch -all -inline -index 1 $lines $pattern] {
    lassign $lineInfo lineNumber lineContent
    puts "$lineNumber : $lineContent"
}

请注意，我使用的是 -index 1 选项，它基本上将 lindex $item 1 应用于列表中的每个项目（第一个子项目是行号，第二个是行文本) 在进行搜索之前。因为我们已经应用了所有行号，所以我们不关心我们找到它们的实际索引，并且可以 -inline 结果。

在搜索结果中包含行号

Include line nr in search result

tcl