egghelp/eggheads community

detect nicks with excessive digits in it

2020-06-07T22:55:41-04:00

Tnx crazycat after taking a look again i saw its working and its exactly what was desired another fine job from caesar tnx again caesar much appreciated as always

Statistics: Posted by simo — Sun Jun 07, 2020 10:55 pm

detect nicks with excessive digits in it

2020-06-07T17:58:39-04:00

im not sure what that does ceasar but what we was looking for was to count digits in nick and if exceeding like 6 or higher to take action

What does ceasar is quite simple: he replaces all characters which are not between 0 to 9 with nothing and count the length of the resulting string.

Statistics: Posted by CrazyCat — Sun Jun 07, 2020 5:58 pm

detect nicks with excessive digits in it

2020-06-06T10:34:56-04:00

tested it again seems to work now

Statistics: Posted by simo — Sat Jun 06, 2020 10:34 am

detect nicks with excessive digits in it

2020-06-06T08:39:57-04:00

im not sure what that does ceasar but what we was looking for was to count digits in nick and if exceeding like 6 or higher to take action

Statistics: Posted by simo — Sat Jun 06, 2020 8:39 am

detect nicks with excessive digits in it

2020-06-06T03:23:16-04:00

Code:

% set nick "f2A94d"f2A94d% regsub -all {[^0-9]} $nick ""294% string length [regsub -all {[^0-9]} $nick ""]3% set nick "aaaa3db4"aaaa3db4% string length [regsub -all {[^0-9]} $nick ""]2

isn't this what you where looking for?

Statistics: Posted by caesar — Sat Jun 06, 2020 3:23 am

detect nicks with excessive digits in it

2020-06-05T13:31:00-04:00

that removes any character that isn't in the 0 to 9 range and then returns it's length.

but we wanted to count the digits in the nick to check for amount of digits

as this seems to count the length of the nick and not the amount of digits in it:

Code:

if {[string length [regsub -all {[^0-9]} $nick ""]] > 6} {   # do whatever}

Statistics: Posted by simo — Fri Jun 05, 2020 1:31 pm

detect nicks with excessive digits in it

2020-06-22T01:22:31-04:00

The code you mentioned returns the digits from the string, not it's length, hence why i suggested the initial code:

Code:

if {[string length [regsub -all {[^0-9]} $nick ""]] > 6} {   # do whatever}

that removes any character that isn't in the 0 to 9 range and then returns it's length.

Anyway, there are 3 options to get the digits from a string:

1. regsub
2. regexp
3. split, loop and compare

Code:

% set text "f2A94d"f2A94d% regsub -all {[^0-9]} $text ""294% join [regexp -all -inline -- {[0-9]+} $text] ""294% join [regexp -all -inline -- {\d+} $text] ""294% foreach e [split $text ""] {        if {[string is integer $e]} {                append result $e        }}% puts $result294

Now, if you want to see who's faster, or if you wonder if that regsub is slow:

Code:

% time { regsub -all {[^0-9]} $text "" } 10003.553 microseconds per iteration% time { join [regexp -all -inline -- {\d+} $text] "" } 10003.457 microseconds per iteration% time { join [regexp -all -inline -- {[0-9]+} $text] "" } 10003.939 microseconds per iteration% time { foreach e [split $text ""] { if {[string is integer $e]} { append result $e } } } 100010.051 microseconds per iteration% time { foreach e [split $text ""] { if {[string is integer $e]} { append result $e } } } 10008.604 microseconds per iteration% time { foreach e [split $text ""] { if {[string is integer $e]} { append result $e } } } 10009.156 microseconds per iteration% time { foreach e [split $text ""] { if {[string is integer $e]} { append result $e } } } 10006.549 microseconds per iteration% time { foreach e [split $text ""] { if {[string is integer $e]} { append result $e } } } 10009.37 microseconds per iteration

Right off the bat we see two possible candidates, so we try again with 10000 times:

Code:

% time { regsub -all {[^0-9]} $text "" } 100002.5413 microseconds per iteration% time { join [regexp -all -inline -- {\d+} $text] "" } 100002.7552 microseconds per iteration

Hope this answers your question.

Edit: We can use scan instead of string is integer

Code:

% foreach e [split $text ""] {        if {[scan $e {%d} no] > 0} {                append result $e        }}% puts $result294

but given that it's a loop will still take a lot longer than regsub or regexp:

Code:

% time { unset result; foreach e [split $text ""] { if {[scan $e {%d} no] > 0} { append result $e} } } 100011.501 microseconds per iteration% time { unset result; foreach e [split $text ""] { if {[scan $e {%d} no] > 0} { append result $e} } } 100013.495 microseconds per iteration% time { unset result; foreach e [split $text ""] { if {[scan $e {%d} no] > 0} { append result $e} } } 100013.228 microseconds per iteration

Edit: Actually the code you tried:

Code:

   if {[regexp -all {[0-9]} $nick] > 6} {       #do whatever here}

returns the length of digits from 0 to 9 it finds in $nick variable. Duno at what was looking at when did the initial test. /facepalm

Statistics: Posted by caesar — Fri Jun 05, 2020 1:27 am

detect nicks with excessive digits in it

2020-06-04T23:42:35-04:00

i tried this

Code:

if {[regexp -all {[0-9]} $nick] > 6} {       do whatever here}

it does seem to work not sure if its proper and not sure if its fastest ? since from what i keep hearing is regexp might not be the fastest to process

Statistics: Posted by simo — Thu Jun 04, 2020 11:42 pm

detect nicks with excessive digits in it

2020-06-04T23:17:12-04:00

its old topic but i tried this one again and it seems it counts general chars lenght and not the amount of digits anywhere in the nick

Statistics: Posted by simo — Thu Jun 04, 2020 11:17 pm

detect nicks with excessive digits in it

2016-12-08T16:43:15-04:00

tested it and works fine thnx caesar

Statistics: Posted by simo — Thu Dec 08, 2016 4:43 pm

detect nicks with excessive digits in it

2016-12-08T02:09:54-04:00

Code:

if {[string length [regsub -all {[^0-9]} $nick ""]] > 6} {# do whatever}

Statistics: Posted by caesar — Thu Dec 08, 2016 2:09 am

detect nicks with excessive digits in it

2019-03-03T12:25:25-04:00

is it possible to have tcl check for digits like more than 6 digits anywhere in the nick

Statistics: Posted by simo — Wed Dec 07, 2016 1:23 pm