Re: What's going on in array element assignment?

[perlfan]

This paints a better picture:

use strict;
use warnings;
use Data::Dumper ();

my @rocks = ();
$rocks[0] = 'bedrock';
$rocks[1] = 'slate';
$rocks[2]= 'lava';
$rocks[3] = 'crushed rock';

print Data::Dumper::Dumper(\@rocks);

$rocks[99] = 'schist';

print Data::Dumper::Dumper(\@rocks);

$#rocks = 2; # forget all rocks after 'lava'
print Data::Dumper::Dumper(\@rocks);

$#rocks = 99; # add 97 undef e
print Data::Dumper::Dumper(\@rocks);

Also, if you want to do surgery on your array, look at splice.

[zapdos]

$rocks[0] = 'bedrock';
$rocks[1] = 'slate';
$rocks[2]= 'lava';
$rocks[3] = 'crushed rock';
$rocks[99] = 'schist';

$#rocks = 2; 
$#rocks = 99; 
print $rocks[$#rocks];

So print $rocks[$#rocks]; is printing nothing because the last element is undef?

[perlfan]

Yes, $#rocks = 2; made your array unaware of subsequent elements (though the memory may still be intact, but I don't think the underlying datastructure can be reverted easily); however $#rocks = 99; probably overwrote the memory forever with undefs. I don't know what memory managment magic is invoked here, but I think on a high level that's an accurate way to think about it.

[Athanasius]

This is documented in perldata#Scalar-values:

The length of an array is a scalar value. You may find the length of array @days by evaluating $#days, as in csh. However, this isn't the length of the array; it's the subscript of the last element, which is a different value since there is ordinarily a 0th element. Assigning to $#days actually changes the length of the array. Shortening an array this way destroys intervening values. Lengthening an array that was previously shortened does not recover values that were in those elements.

You can also gain some minuscule measure of efficiency by pre-extending an array that is going to get big. You can also extend an array by assigning to an element that is off the end of the array. You can truncate an array down to nothing by assigning the null list () to it. The following are equivalent:

    @whatever = ();
    $#whatever = -1;

(BTW, in my experience the speed-up to be gained by pre-allocating array memory is sometimes far from “miniscule.”)

Hope that helps,

[zapdos]

Domo arigato. ^__^