Read file help..

[FcLan]

Code: Select all

package require http
bind pub - !read foo
proc foo {n u h c t} {
   set x [::http::geturl www.website.com/file.txt]
   foreach e [split [::http::data $x] \n] {puthelp "privmsg $c :$e"}
   ::http::cleanup $x
}

It is code to read file from website, i`ve seen it on this forum, but I want to read only 4 latest lines, any ideas??

[Sir_Fz]

Try

Code: Select all

[lrange [split [::http::data $x] \n] 0 3]

instead of

Code: Select all

[split [::http::data $x] \n]

[FcLan]

thx