egghelp/eggheads community

Re: Replacing spaces with %20

2003-09-10T18:36:37-04:00

Ive written a little tcl script that gets the content of a php page Ive set..

everything works fine untill the 'thing' (username in this case) I want to retreive has spaces in it..
cus then the bot somehow replaces the space with a character which the webserver does not understand..
so.. what I want to do is replace a space with %20 which is a space for internet browsers when used in the address.. (duh )
problem is im kinda new at tcl scripting and I dont know how to replace stuff..

so my question is HOW can I replace a space with %20
Code:
first reply worked just perfect.. thanks a lot mate :)regsub -all " " $text "%20" text
or
Code:
set text [string map {" " "%20"} $text]
I prefer the first method myself..

also, a better place to start before asking for commands, is the tcl manpages.

Statistics: Posted by Sc0rp — Wed Sep 10, 2003 6:36 pm

Replacing spaces with %20

2003-09-10T12:45:48-04:00

ok, thanx for the info

Statistics: Posted by Sir_Fz — Wed Sep 10, 2003 12:45 pm

Replacing spaces with %20

2003-09-10T12:34:58-04:00

It's not been part of eggdrop for a while. But there's a proc called "time" in scripts/compat.tcl.

Thats the culprit indeed. Thanks.

Statistics: Posted by egghead — Wed Sep 10, 2003 12:34 pm

Replacing spaces with %20

2003-09-10T12:21:46-04:00

so why is it less time to repeat 1050 times than 5 times ?

The number of microseconds is not entirely accurate (because of other processes using the cpu at the same time) and for such low values the rounding may cause results like that. Let's say your code took about 1.5 microseconds...only a tiny difference in execution time might tip it over.

Statistics: Posted by user — Wed Sep 10, 2003 12:21 pm

Replacing spaces with %20

2003-09-10T12:18:12-04:00

Good point. It seems eggdrop has its own definition of time. Could not find it in doc/tcl-commands.doc though.

It's not been part of eggdrop for a while. But there's a proc called "time" in scripts/compat.tcl.

Statistics: Posted by user — Wed Sep 10, 2003 12:18 pm

Replacing spaces with %20

2003-09-10T12:15:59-04:00

okay thanx egghead I've got it, but may I ask how does the time vary according to how many time a command is repeated.

because when I do "time {set test "hello"} 5" it returns 4 microseconds per iteration ; and when I do "time {set test "hello"} 1050" it returns 1 microseconds per iteration.

so why is it less time to repeat 1050 times than 5 times ?

Statistics: Posted by Sir_Fz — Wed Sep 10, 2003 12:15 pm

Replacing spaces with %20

2003-09-10T11:59:32-04:00

I tried ".tcl time {set test "hello"} 1050" in partyline, it returned: Tcl error: wrong # args: should be "time". what's wrong ?

Good point. It seems eggdrop has its own definition of time. Could not find it in doc/tcl-commands.doc though.

In any case, you can start tcl on your shell:

system:/usr/home/egghead # tclsh8.3
% time {set test "hello"} 1050
1 microseconds per iteration

Statistics: Posted by egghead — Wed Sep 10, 2003 11:59 am

Replacing spaces with %20

2003-09-10T11:47:57-04:00

I tried ".tcl time {set test "hello"} 1050" in partyline, it returned: Tcl error: wrong # args: should be "time". what's wrong ?

Statistics: Posted by Sir_Fz — Wed Sep 10, 2003 11:47 am

Replacing spaces with %20

2003-09-10T11:37:09-04:00

Examples have allready been given.

Code:

time {set test "hello"} 1050

This will run the code

Code:

set test "hello"

1050 times, and tell you how long on average it took to run the command each time.

It will display somthing like

2 microseconds per iteration

Statistics: Posted by ppslim — Wed Sep 10, 2003 11:37 am

Replacing spaces with %20

2003-09-10T10:38:02-04:00

can you give an example please ? using one of the commands above

Statistics: Posted by Sir_Fz — Wed Sep 10, 2003 10:38 am

Replacing spaces with %20

2003-09-10T10:28:43-04:00

Tcl provides a command called "time".

This will measure the time in microseconds, it takes to complete a command.

You also give it a repeat counter. This will loop and call the command X times. The total time is added together, and devided by the loop value, to give an average time.

Tcl also provides a command line parser, called "tclsh". You can use this to run Tcl script in your everyday tasks, or even as a CGI library. When called on its own, you can use it interactivly.

Through this, you can perform these tests, though you can't test eggdrop scripts, as many of the required commands are not available.

Statistics: Posted by ppslim — Wed Sep 10, 2003 10:28 am

Replacing spaces with %20

2003-09-10T08:58:29-04:00

may I ask, how do you do these tests ? on what basis do you get the time results ?

Statistics: Posted by Sir_Fz — Wed Sep 10, 2003 8:58 am

Replacing spaces with %20

2003-09-10T05:08:12-04:00

Both "string map" and the split-join method can also count many many replacments where done.

Code:

set len [string length $orig]set ph "%20"set new [join [split $orig] $ph]set count [expr ([string length $new] - $len) / [string length $ph]]

Not as simple or elegant, more CPU intensive.

As for the battle of time, this will vary on text length and system. The battle between Windows and Linux has allways been odd.

Windows has shown on occasions to beat the pants of linux in some commands, but lagged in others. Linux shows consistant replies where windows hasn't.

Note, there was one test missed out.

Code:

set text [string repeat "ssss " 30]time {set newtext [join [split $text " "] %20]} 1000time {set newtext [string map {" " %20} $text]} 1000time {regsub -all " " $text "%20" newtext} 1000time {set newtext [join [split $text] %20]} 1000

The results in order (cycles reduced)

Code:

92 microseconds per iteration108 microseconds per iteration405 microseconds per iteration (ouch)110 microseconds per iteration

note how using the default marker for "split" rather than " " causes time to increase.

Here are the tests again, with the "string repeat" set to 10

Code:

46 microseconds per iteration47 microseconds per iteration151 microseconds per iteration53 microseconds per iteration

Tcl 8.3.4 - Linux 2.4.21

System level optimisations are not important to a coder, generic speed is. Unless they are gonna use a test suite first to determine the best command for the job.

Statistics: Posted by ppslim — Wed Sep 10, 2003 5:08 am

Replacing spaces with %20

2003-09-09T18:41:48-04:00

Interesting numbers...what tcl version? My tests in 8.3.2 were quite different (string map and split/join about the same, regsub 4-5 times slower)

Code:

% info patchlevel8.4.1% puts "$tcl_platform(os) $tcl_platform(osVersion)"Windows NT 5.0%

Statistics: Posted by strikelight — Tue Sep 09, 2003 6:41 pm

Replacing spaces with %20

2003-09-09T18:59:15-04:00

Interesting numbers...what tcl version? My tests in 8.3.2 were quite different (string map and split/join about the same, regsub 4-5 times slower)

Are we ever going to stop debating this?

I hope not

Try to guess what my first edit was.

Statistics: Posted by user — Tue Sep 09, 2003 6:16 pm