another regexp problem ....

[wubmerlin]

HELP ! i want to scan email address to know if it contain _something_ or -something_ ......
Ex: !vlaid test_roger_email@testmail.com

But i cant get it to work.
Thanks for your help !

Code: Select all

proc test { nick uhost hand chan arg } {
        set text [lindex $arg 0]
        set check [lindex $arg 2]
        set test "roger john frank"
        foreach x $test {
                if {[regexp -nocase {[-_]$x[_-]} $text] != 0} {
                        putserv "PRIVMSG $chan :$text is a valid email"
                } else {
                        putserv "PRIVMSG $chan :$text is invalid"
                }
        }
}

[nml375]

Using {} prevent the parsing of variables, brackets and such...

Try something like this instead:

Code: Select all

...
regexp -nocase "\[-_\]$x\[-_\]" $text
...

Also, your code is flawed, in that it uses lindex on a string, when it should only be used on proper lists. Please considder splitting $arg before using lindex...

Finally, you really should be creating your list of names properly, that is, something like this:

Code: Select all

set test [list roger john frank]

[wubmerlin]

thanks alot !