function similar grep for unix

[raid3n]

Hi, i'm looking for a function that find a string in a txt file.

If in my raiden.txt i have a string "hello", is in tcl a function that return 0 if it exists ?

Excuse my bad english.

Regards

[GodOfSuicide]

there was a tread like this one just some days ago

[Ofloo]

is it to create @find cause i got a script that does that ..

script below is like smal sample script you could use for that havn't tested it yet tho so let me know if it does ..

Code: Select all

#Usage: [find:text <filename.txt> <search string>]

proc find:text {filename arg} {
  set count "0"
  set rfile [open "$filename" "r"]
  while {![eof $rfile]} {
    gets $rfile line
    if {[string match "*[string map {\x20 *} $arg]*" $line]} {
      putserv "PRIVMSG $nick :$line"
      set count [expr $count+1]
      return 1
    }
  }
  close $rfile
  if {$count == 0} {
    return 0
  }
}

[user]

Code: Select all

#Usage: [find:text <filename.txt> <search string>]
proc find:text {filename arg} {
  set count "0"
  set rfile [open "$filename" "r"]
  while {![eof $rfile]} {
    gets $rfile line
    if {[string match "*[string map {\x20 *} $arg]*" $line]} {
      putserv "PRIVMSG $nick :$line"
      set count [expr $count+1]
      return 1
    }
  }
  close $rfile
  if {$count == 0} {
    return 0
  }
}

There's no variable called 'nick' in that proc. Also, returning from inside the loop will leave the file open (you must have meant 'break' ).

[caesar]

Have a look at this post.

[ppslim]

Alternativly, use the fileutil package that comes with TclLib

[Ofloo]

This should do the trick

Code: Select all

#Usage: [find:text <nick> <filename.txt> <search string>] 

proc find:text {nick filename arg} { 
  set count "0" 
  set rfile [open "$filename" "r"] 
  while {![eof $rfile]} { 
    gets $rfile line 
    if {[string match "*[string map {\x20 *} $arg]*" $line]} { 
      putserv "PRIVMSG $nick :$line" 
      set count [expr $count+1] 
    } 
  } 
  close $rfile 
  if {$count == 0} { 
    return 0 
  }
  if {$count != 0} { 
    return 1
  }  
}

forgot a return breaked a loop :/ sorry hehe and forgot about the nick var
puts serv is just optional stuff so is the return its for usage in other procs depends how your using it .. just to give an idea on how you could do it .. you also can set max results by setting if $count < 10 for example .. and so on if $count > 10 then putserv to mutch results .. or something