Faster perl operation?

[Jerry Davis]

On Wednesday 17 January 2007 19:34, Kevin Brown wrote:
> I'm working on a small script (so far only about 1000 lines long) and
> I'm finding that I'd like a faster way to do:
>
> $variable = "." x ($start - 1);
>
> which is incredibly slow since it is creating sometimes on the order of
> 100,000 to 3,000,000 (yes, Million) periods to fill up the needed string.

if you do this more than once in the code, or in a loop;
why don't you set up a variable at the top of your program that has the needed 
dots for the maximum number you would need -- lets say 3,000,000.

then wherever you want n number of dots, just do $variable = substr($dots, 1, 
n). this should be much faster.

jerry

>
> I've tried using:
> sprintf +("%s" x ($start - 1)), ".";
>
> but I must not have the syntax correct as it doesn't create the needed
> "." characters.
>
> Any thoughts on what is wrong with the sprintf syntax or what else I
> could try to speed this up?
> ---------------------------------------------------
> PLUG-discuss mailing list - PLUG-discuss at lists.plug.phoenix.az.us
> To subscribe, unsubscribe, or to change  you mail settings:
> http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss

-- 
Happy Trails!
Jerry
 
Hobbit Name: Pimpernel Loamsdown
Registered Linux User: 275424
 
This email's random fortune: 
Harp not on that string.
		-- William Shakespeare, "Henry VI"