bless funcion en Perl
Sintaxis
bless REFERENCIA
Accion
Completa una referencia con la indicacion del paquete al que pertenece.
Ejemplo
package CAJA;
{
$var = "333";
$ref = \$var;
$referencia = ref($ref);
}
print $referencia; #imprime ESCALAR
package CAJA;
{
$var = "333";
$ref = \$var;
$referencia = ref($ref);
bless $referencia;
}
print $referencia; #imprime CAJA
Leave a comment