Dlaczego `istnieje` modyfikuje moją stałą?

Question

Funkcja exists może mieć wartości unexpectedly autovivify entries w hasłach.

Co mnie dziwi to, że to zachowanie przenosi się na stałe, a także:

use strict; 
use warnings; 
use Data::Dump 'dump'; 

use constant data => { 
         'foo' => { 
            'bar' => 'baz', 
           }, 
         'a' => { 
            'b' => 'c', 
           } 
        }; 

dump data; # Pre-modified 

print "No data for 'soda->cola->pop'\n" unless exists data->{soda}{cola}{pop}; 

dump data; # data->{soda}{cola} now sprung to life 

Wyjście

{ a => { b => "c" }, foo => { bar => "baz" } } 
No data for 'soda->cola->pop' 
{ a => { b => "c" }, foo => { bar => "baz" }, soda => { cola => {} } } 

I podejrzewam, że jest to błąd. Czy jest to coś specyficznego dla wersji 5.10.1, czy też inne wersje Perla zachowują się podobnie?

Answer 1

To jest udokumentowane zachowanie. perldoc constant mówi:

Mimo odniesienia może być zadeklarowana jako stała, odniesienie może wskazywać na danych, które mogą być zmieniło, jak ilustruje to poniższy kod.

use constant ARRAY => [ 1,2,3,4 ]; 
print ARRAY->[1]; 
ARRAY->[1] = " be changed"; 
print ARRAY->[1]; 

To odniesienie że jest stała, nie to, co się odnosi.

Answer 2

Prawdopodobnie chcesz użyć Readonly do tworzenia "prawdziwych" stałych.

Stałe utworzone przy użyciu pragma constant są w rzeczywistości inlinable subroutines. Oznacza to, że w czasie kompilacji odpowiednia stała skalarna jest wstawiana bezpośrednio w miejsce wywołania podprogramu. Jeśli stała jest referencją, nic nie stoi na przeszkodzie, aby zmienić dane, na które wskazuje.