egghelp/eggheads community

help with correct regexp syntax needed

2005-01-18T18:52:16-04:00

ic indeed 0 is included by length.. well this should work

Code:

proc isNumber {num} {  return [regexp {^[1-9]{1}[0-9]{3,4}$} $num]}

hmm indeed just as you told hehe

Statistics: Posted by Ofloo — Tue Jan 18, 2005 6:52 pm

why did you post that?

2005-01-18T13:38:50-04:00

He said 1000-99999, not 0000(aka 0)-99999, and he's already using the sequence quantifier ({})

Statistics: Posted by user — Tue Jan 18, 2005 1:38 pm

help with correct regexp syntax needed

2005-01-18T12:59:58-04:00

Code:

proc isNumber {num} {  if {[regexp {^[0-9]{4,5}$} $num]} {    return 1  }  return 0}

this should take care of it cause of the {} it sets a minimum length and numbers with minimum lenght of 4 start from 1000 maximumlength of 5 is 99999 exactly the range you require so..

Statistics: Posted by Ofloo — Tue Jan 18, 2005 12:59 pm

Re: help with correct regexp syntax needed

2005-01-18T12:39:59-04:00

add a ^ to the start of your expression and a $ to the end

http://www.tcl.tk/man/tcl8.5/TclCmd/re_syntax.htm#M23
http://www.tcl.tk/man/tcl8.5/TclCmd/re_syntax.htm#M24

Statistics: Posted by user — Tue Jan 18, 2005 12:39 pm

help with correct regexp syntax needed

2005-01-18T11:35:30-04:00

Attempting regexp for the first time but I can't seem to get the syntax correct.

I want to test if a string is between 1000 and 99999 (I know there are simpler methods than regexp to do this by the way)

# testing script
# format !test

bind pub - !test ptest

proc ptest {nick uhost hand chan arg} {
if {[regexp \[1-9\]\[0-9\]{3,4} $arg]} {
putserv "PRIVMSG $chan :Regular expression matched"
} else {
putserv "PRIVMSG $chan :Regular expression not matched"
}
}

!test 1024 yields 'Regular expression matched' <--- correct
!test hello yields 'Regular expression not matched' <--- correct
!test 675 yields 'Regular expression not matched' <--- correct
!test 657349 yields 'Regular expression matched' <--- UNEXPECTED

Where am I going wrong please

Statistics: Posted by arfer — Tue Jan 18, 2005 11:35 am