Когда идёт чтение файла:
Quote
set filep [open $file r]
set list [lrange [split [read $filep] \n] 0 end-1]
close $filep
или перед выводом строки
Quote
foreach line [split [read $filep] \n] {
if {$line == ""} {continue}
putserv "PRIVMSG $chan :$line"
}
или так
Quote
foreach line [lrange [split [read $filep] \n] 0 end-1] {
putserv "PRIVMSG $chan :$line"
}
а можно то и то
Quote
foreach line [lrange [split [read $filep] \n] 0 end-1] {
if {$line == ""} {continue}
putserv "PRIVMSG $chan :$line"
}