Making an array of predifined length with default values

[johnvandam]

Call me silly, but I'm frustrated a bit with the following:
I would like to make an array of say, a thousand elements each filled with 0. What would be the fastest, cleanest way of doing this?

For a string we can replicate a substring:

$string = 0 x 1000;

This will give me a string of a thousand 0's.

For making an array in similar fashion this is the shortest method I can think of:

$_ = 0 foreach (@array = (1..1000));

I could also use split:

@array = split //, 0 x 1000;

But this I think will be more costly because you invoke the regexp engine, I guess.

So my question is: Is there some infinitely better, more perly method of making an array of predefined length with identical values? (Comparable maybe to the more satisfying way of doing something similar for a string?)

Thanks for all the help!

[almut]

my @array = (0) x 1000;

Even works with lists of arbitrary length, such as my @array = (1, 2, 3) x 100;  (which creates 300 elements).

(but memory-wise, it's not better than iteratively filling the elements, maybe even with predeclaring some initial max size with $#array = 1000; to avoid successive automatic resizing...)

[AnomalousMonk]

Just a very minor nit: the statement  $#array = 1000; sets the maximum array index to 1000 and so predeclares an array with 1001 elements (assuming $[ == 0; see perlvar).

[johnvandam]

Thanks, this works perfectly! I though it only worked for strings. Thanks again

[derby]

The fastest way to pre-extend an array by assigning a value to it's length:

my @array;
$#array = 10000;

Now for pre-filling ... don't know. I would Benchmark the approaches you outline (and for grins, I would benchmark pre-extending too).

Update: Doh!. Thanks almut, now I know.

[clueless newbie]

perhaps @a=(0) x 1000;