Прочитайте последнюю строку активного лог-файла с Eggdrop & .tcl

Question

Здравствуйте, я задавался вопросом, возможно ли читать последнюю строку файла журнала в реальном времени с помощью eggdrop и сценария .tcl, способного читать первую часть файла журнала, но thats это он больше не читает об этом

Answer 1

Возможно ли установить верхнюю границу по длине строки файла журнала? Если да, то это довольно легко получить последнюю строку:

# A nice fat upper bound! 
set upperBoundLength 1024 

# Open the log file 
set f [open $logfile r] 
# Go to some distance from the end; catch because don't care about errors here 
catch {seek $f -$upperBoundLength end} 
# Read to end, stripping trailing newline 
set data [read -nonewline $f] 
# Hygiene: close the logfile 
close $f 
# Get the last line 
set lastline [lindex [split $data "\n"] end] 

Обратите внимание, что это на самом деле не необходимо сделать seek; это просто избавляет вас от необходимости читать подавляющее большинство файлов, которые вы, по-видимому, не хотите.