perl - query - sparql tutorial español

¿Qué significa__PACKAGE__->{foo}?

Question

Estoy refactorizando un módulo perl en código heredado, y esta es una función del módulo:

sub get_user {
    my $user = __PACKAGE__->{user};
    if (!defined $user) {
       # more code
       __PACKAGE__->{user} = $user;
    }
    return $user;
}

Este módulo se compila bajo use strict . Y no hay variables de paquete definidas. ¿Qué significa __PACKAGE__->{user} ?

Answer 1

__PACKAGE__ es el nombre del paquete actual; su código lo está utilizando como una referencia de hash simbólica. Entonces, si su paquete es foo, está configurando $foo::foo{''user''} . Esto es algo extraño que hacer; Sospecho que puede ser un error.

Debido a que es una referencia simbólica, no debe permitirse bajo estricto. Sin embargo, parece ser que al menos cuando el paquete actual tiene varias partes (por ejemplo, Foo :: Bar, no solo Foo). Sin embargo, no dependería de que este error permanezca en efecto.

Answer 2

__PACKAGE__ es un hash. Esta sintaxis accede a un valor con clave.

Answer 3

use strict;
use warnings;
use 5.012;

{
    package X::Y;

    our $user = 10;
    say $user;

    say __PACKAGE__;

}


--output:--
10
X::Y

El nombre del paquete puede ser ''X :: Y'' pero la tabla de símbolos para el paquete se llama ''X :: Y ::'' (tenga en cuenta los dos puntos posteriores). Una tabla de símbolos es un hash de perl, y las claves en% X :: Y :: hash son los nombres globales utilizados en el paquete X :: Y. Los valores correspondientes son los typeglobs para cada nombre:

use strict;
use warnings;
use 5.012;

{
    package X::Y;

    our $user = 10;
    say $user;

    say __PACKAGE__;
    say $X::Y::{user};   #Hash name is %X::Y::


}

--output:--
10
X::Y
*X::Y::user

Pero la expresión en la op:

__PACKAGE__->{user} 

es equivalente a:

''X::Y''->{user}

No veo cómo esa línea logrará recuperar algo de un hash cuyo nombre es ''X :: Y ::'' (termina en dos puntos). Y de hecho, me sale este error:

use strict;
use warnings;
use 5.012;

{
    package X::Y;

    our $user = 10;
    say $user;

    say __PACKAGE__;
    say $X::Y::{user}; 
    say __PACKAGE__->{user};
}

--output:--
10
X::Y
*X::Y::user
Use of uninitialized value in say at 2.pl line 13.

Si el código crea realmente un hash llamado% X :: Y en algún lugar, entonces el código se ejecutará sin errores:

use strict;
use warnings;
use 5.012;


%X::Y = (); #This hash has nothing to do with the hash named 
            #%X::Y::, which is the symbol table for the 
            #X::Y package.  

$X::Y{user} = ''hello'';


{
    package X::Y;

    sub get_user {
        say __PACKAGE__->{user};
    }

    get_user;
}


--output:--
hello

Como se mencionó en el comentario, el hash% X :: Y no tiene nada que ver con el paquete X :: Y. De hecho, la línea:

%X::Y = ();

Declara explícitamente una variable llamada Y en el paquete X. El paquete X y el paquete X :: Y son dos paquetes diferentes.

Y no hay variables de paquete definidas

El subnombre es una variable de paquete:

use strict;
use warnings;
use 5.012;

{
    package X::Y;

    sub get_user {say ''hello'';}

    say $X::Y::{get_user};

}

--output:--
*X::Y::get_user

El hecho de que exista un typeglob para el nombre ''get_user'' significa que el código usa al menos una variable global llamada ''get_user''.