¿Por qué `exists` modifica mi constante?

Question

La función exists puede unexpectedly autovivify entries en hashes.

Lo que me sorprende es que este comportamiento se traslada a las constantes así:

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 

salida

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

Sospecho que esto es un error. ¿Es esto algo específico de 5.10.1, o las otras versiones de Perl se comportan de manera similar?

Answer 1

Se ha documentado el comportamiento. perldoc constant dice:

A pesar de que una referencia puede ser declarada como una constante, la referencia puede apuntar a datos que pueden ser cambiado, ya que este código espectáculos.

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

Es la referencia que es constante, no en lo que se refiere a.

Answer 2

Probablemente desee utilizar Readonly para crear constantes "verdaderas".

Las constantes creadas con el pragma constant son en realidad inlinable subroutines. Significa que en tiempo de compilación la constante escalar apropiada se inserta directamente en lugar de alguna llamada de subrutina. Si la constante es una referencia, nada le impide cambiar los datos a los que apunta.