egghelp/eggheads community

need help creating an autovoice

2003-09-04T03:38:38-04:00

http://tcl.tk//man/tcl8.3/TclCmd/string.htm#M35
vs
http://tcl.tk//man/tcl8.3/TclCmd/re_syntax.htm + http://tcl.tk//man/tcl8.3/TclCmd/regexp.htm

Statistics: Posted by user — Thu Sep 04, 2003 3:38 am

need help creating an autovoice

2003-09-04T03:32:20-04:00

which manual ?

Statistics: Posted by Sir_Fz — Thu Sep 04, 2003 3:32 am

need help creating an autovoice

2003-09-04T02:58:35-04:00

ok, do these two examples (regexp and string) do exactly the same thing ? like I can convert any regexp to a string on the same concept ?

No. Use {^[0-9]} in the regexp to match the same thing as {[0-9]*} using string match.

Most regexp rules CAN'T be translated into string match masks, but when they can and become alot more efficient, they should be IMO. (Read the manual to find out what you can and can't)

Statistics: Posted by user — Thu Sep 04, 2003 2:58 am

need help creating an autovoice

2003-09-04T02:52:09-04:00

regexp SUCKS (so slow compared to most string commands that perform such tasks...it's only needed for really complex patterns that would require lots of other commands)

Here's an example (matching a number as the first char in a string):
% set a 0abcdefghijklmnopqrstuvwxyz
0abcdefghijklmnopqrstuvwxyz
% time [list regexp {[0-9]+.*} $a] 100000
10 microseconds per iteration
% time [list string match {[0-9]*} $a] 100000
2 microseconds per iteration

ok, do these two examples (regexp and string) do exactly the same thing ?
like I can convert any regexp to a string on the same concept ?

Statistics: Posted by Sir_Fz — Thu Sep 04, 2003 2:52 am

need help creating an autovoice

2003-09-03T19:57:49-04:00

For the record, it might help a little bit if you used the correct regexp

Yeah (It wouldn't matter much to the speed difference though)

Also, I can not stress enough the importance of writing compatible code for various TCL versions, and Eggdrop versions... While string match is faster, it does not support regular expression matching in all TCL versions. Keeping this in perspective, 5-6 MICROseconds are inconsequential, for the price of retaining backwards compatibility.

What do you mean? You're coding for some version < 7.5?
And for the record, microseconds matter when you execute stuff millions of times

Statistics: Posted by user — Wed Sep 03, 2003 7:57 pm

need help creating an autovoice

2003-09-03T19:50:30-04:00

regexp SUCKS (so slow compared to most string commands that perform such tasks...it's only needed for really complex patterns that would require lots of other commands)

Here's an example (matching a number as the first char in a string):
% set a 0abcdefghijklmnopqrstuvwxyz
0abcdefghijklmnopqrstuvwxyz
% time [list regexp {[0-9]+.*} $a] 100000
10 microseconds per iteration
% time [list string match {[0-9]*} $a] 100000
2 microseconds per iteration

For the record, it might help a little bit if you used the correct regexp

Code:

regexp {^[0-9]} $a

Instead of having it search the string anywhere for a number ;x

Also, I can not stress enough the importance of writing compatible code for various TCL versions, and Eggdrop versions... While string match is faster, it does not support regular expression matching in all TCL versions. Keeping this in perspective, 5-6 MICROseconds are inconsequential, for the price of retaining backwards compatibility.

Statistics: Posted by strikelight — Wed Sep 03, 2003 7:50 pm

need help creating an autovoice

2003-09-03T17:44:58-04:00

thanks

Statistics: Posted by Dedan — Wed Sep 03, 2003 5:44 pm

need help creating an autovoice

2003-09-03T17:38:02-04:00

replace "first" with "0" and use 'string index $word 0' to fetch the single char...no need to use range to fetch something that aint a range

Statistics: Posted by user — Wed Sep 03, 2003 5:38 pm

need help creating an autovoice

2003-09-03T17:22:06-04:00

Code:

set word "eggdrop" proc get:stuff { stuff } {   global word  set first3letters [string range $word first 2]  # returns egg  set firstletter [string range $word first 0]  # returns e  if {[regexp {[0-9]} $firstletter]} {return "letter is a number silly"}}

Statistics: Posted by Dedan — Wed Sep 03, 2003 5:22 pm

need help creating an autovoice

2003-09-03T17:15:03-04:00

i saw nothing pertaning to a single word,
what examples i did see pertained to
a sentence on ALL of the commands

What do you mean? The string commands work with what you feed them...in general a string of chars...there are no words

why would the paramaters be different
for string range than string trimright?

string trimright doesn't deal with indexes, it trims of the chars specified (read the manual)

Statistics: Posted by user — Wed Sep 03, 2003 5:15 pm

need help creating an autovoice

2003-09-03T17:11:11-04:00

i saw nothing pertaning to a single word,
what examples i did see pertained to
a sentence on ALL of the commands

why would the paramaters be different
for string range than string trimright?

Statistics: Posted by Dedan — Wed Sep 03, 2003 5:11 pm

need help creating an autovoice

2003-09-03T17:13:25-04:00

regexp SUCKS (so slow compared to most string commands that perform such tasks...it's only needed for really complex patterns that would require lots of other commands)

Here's an example (matching a number as the first char in a string):

% set a 0abcdefghijklmnopqrstuvwxyz
0abcdefghijklmnopqrstuvwxyz
% time [list regexp {[0-9]+.*} $a] 100000
10 microseconds per iteration
% time [list string match {[0-9]*} $a] 100000
2 microseconds per iteration

Statistics: Posted by user — Wed Sep 03, 2003 5:09 pm

need help creating an autovoice

2003-09-03T17:05:09-04:00

most networks do not allow the first letter to be a number.

if on yours' its allowed then regexp would be the best solution.

Statistics: Posted by Sir_Fz — Wed Sep 03, 2003 5:05 pm

need help creating an autovoice

2003-09-03T17:07:09-04:00

'string trim' doesn't do what you said in your comments. I recommend reading the entire 'string' manual page

Check out: string is, string index, string range, string match

Statistics: Posted by user — Wed Sep 03, 2003 5:04 pm

need help creating an autovoice

2003-09-03T17:00:47-04:00

Code:

set word "eggdrop" proc get:first:3letters { stuff } {   global word   set first3letters [string trimright $word 2]  # returns egg  set firstletter [string trimright $word 0]  # returns e  also, how can i check to see if $firstletter is a number?  is there a command, or do you "have" to use regexp}

Statistics: Posted by Dedan — Wed Sep 03, 2003 5:00 pm