Re^2: Occurence List

[Anonymous Monk]

In the above posting, notice how the mere mention of a hash-key causes it to magically appear, with the initial value of zero, so that it can be "++" incremented to the value of one. This bit of perl-mojo is called "autovivification." Otherwise known as "do the right thing quietly and with a minimum of fuss."

No , that is not autovivification . Just like this is not autovivification

$foo++;
$bar[$_]++;

[Anique]

However, when you

use strict;

writing

$foo++;

will cause perl to complain (if you have not declared (and thus created) $foo before),
while writing

$bar[396]

will cause no complaints, even if you never used this index before(or a higher one), or never told Perl how big @bar should be. You will have to declare @bar, of course. So these two examples are not comparable. And I believe the second example actually is where we see autovivication at work.

[Anonymous Monk]

will cause perl to complain (if you have not declared (and thus created) $foo before), while writing

Oh will it now?

$ perl -le " use warnings; use strict; my $foo; $foo++; print $foo "
1

So these two examples are not comparable. And I believe the second example actually is where we see autovivication at work.

Yes, they really are exactly comparable, and no, the second example is not autovivification any more than the first example is autovivification -- neither is autovivification

Growing an array is not autovivification. JavaScript doesn't support autovivification , try it if you have firefox ( Ctrl+Shift+K )

[03:41:08.755] var noauto = [ 0, 1 ]; noauto[ 6 ] = 66; noauto ;
[03:41:08.764] [0, 1, , , , , 66]
[03:43:06.834] noauto[2].failToAutoVivify = 12; noauto;
[03:43:06.843] TypeError: noauto[2] is undefined

JavaScript supports growing arrays but not autovivification, but perl does supports it, undef becomes a hashref if you treat it like a hashref

$ perl -MData::Dump -le " my $auto = [ 0, 1 ]; $$auto[6]=66; dd $auto;
+ "
[0, 1, undef, undef, undef, undef, 66]


$ perl -MData::Dump -wle " my $auto = [ 0, 1 ]; $$auto[6]=66; $$auto[2
+]{VIVIFY}=12; dd $auto; "
[0, 1, { VIVIFY => 12 }, undef, undef, undef, 66]

[Anique]

when you write

$ perl -le " use warnings; use strict; my $foo; $foo++; print $foo "
1

you declare $foo by saying my $foo; and then do something with it($foo++). Of course $foo++ would then not cause autovivication, because $foo already exists.

The thing with array indexes and hash keys, is that we do not have to declare them before we can use them. There is no need to say my $bar[396];, or even my $bar[396]++; before you can assign anything to it.