在搜索结果中包括第nr行

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 Fellows！

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结果。