Need a !find tcl script, to search in files

[XphaN1]

Hi.
As avea si eu nevoie de un script care, tastand pe canal o comanda, sa faca ceva de genul:
ex:
!find romania
- aici script-ul va cauta intr-un anumit fisier toate liniile care contin cuvantul romania
- acel fisier va contine anumite linii cu diferite cuvinte, de ex:

romania - 17 ani de la revolutia din 1989
romania - ***** Eminescu, nascut in Botosani - 15 ianuarie 1850
s.a.m.d.

- bot-ul sa ii trimita prin mesaj privat acelei persoane care a tastat !find romania o linie sau mai multe linii din acel fisier, care contin/e cuvantul romania
- numarul maxim de linii pe care bot-ul sa le trimita sa fie de 10

Multumesc.

[caesar]

bind pub - !search search:pub

proc search:pub {n u h c a} { 
  set a *[string map {" " *} $a]* 
  putserv "PRIVMSG $n :Searching for \002$a\002.." 
  set i 0 
  set f [open "Uploads.log" r] 
  while {[gets $f b]>-1} { 
    if {[string match -nocase $a $b]} { 
      incr i 
      putserv "PRIVMSG $n :\002$i)\002 $b"
    } 
  } 
  close $f 
  if {$i} { 
    putserv "PRIVMSG $n :Search complete.. Found \002$i\002 result[expr {$i==1?"":"s"}].." 
    } { 
    putserv "PRIVMSG $n :Sorry, no matches have been found." 
  } 
}

Foloseste-l ca exemplu.

[arcade]

hmm ai putea pleca de la learn.tcl (vezi egghelp.org si sa il modifici putin