Default initial array value? [TMTOWTDI]

[h3xx]

I know this kind of goes against traditional programming practices,
but here goes:

I need to initialize an array to all zeroes to begin with, but the
only way I see is to set each index manually:

my $ary = [ map {0} 0 .. $last_index ];

Because the indices invariably get set to undef if I just set the last
index. I've read the perlvar manpage over and over again and can't
find a relevant variable to determine what undefined array indices get
set to instead of undef.

My question is, Is there more than one way to do this?

 

[h3xx]

I know this kind of goes against traditional programming practices,
but here goes:

I need to initialize an array to all zeroes to begin with, but the
only way I see is to set each index manually:

my $ary = [ map {0} 0 .. $last_index ];

Because the indices invariably get set to undef if I just set the last
index. I've read the perlvar manpage over and over again and can't
find a relevant variable to determine what undefined array indices get
set to instead of undef.

My question is, Is there more than one way to do this?

I mean, I can think of this:

$ary = [ split //, '0' x $num_indices ];

But that's dealing with strings parsing and regex matching, which is
slower than what I'm thinking of.

 

[John W. Krahn]

I know this kind of goes against traditional programming practices,
but here goes:

I need to initialize an array to all zeroes to begin with, but the
only way I see is to set each index manually:

my $ary = [ map {0} 0 .. $last_index ];

Because the indices invariably get set to undef if I just set the last
index. I've read the perlvar manpage over and over again and can't
find a relevant variable to determine what undefined array indices get
set to instead of undef.

My question is, Is there more than one way to do this?

my @ary = ( 0 ) x $size;



John

 

[h3xx]

I know this kind of goes against traditional programming practices,
but here goes:

I need to initialize an array to all zeroes to begin with, but the
only way I see is to set each index manually:

my $ary = [ map {0} 0 .. $last_index ];

Because the indices invariably get set to undef if I just set the last
index. I've read the perlvar manpage over and over again and can't
find a relevant variable to determine what undefined array indices get
set to instead of undef.

My question is, Is there more than one way to do this?

my @ary = ( 0 ) x $size;

John

Nice! Thanks. I had no idea about that trick!

 

[sln]

I know this kind of goes against traditional programming practices,
but here goes:

I need to initialize an array to all zeroes to begin with,

[snip]

There is never a need to do this.
-sln

 

[Peter Wyzl]

I know this kind of goes against traditional programming practices,
but here goes:

I need to initialize an array to all zeroes to begin with,

[snip]

There is never a need to do this.

Never is a very long time.

P