Foro - Perl en Español

por **lucas** » 2012-03-16 14:03 @627

Hola. Primeramente quiero saludarles a todos nuevamente.

Tengo un problema.

Considerando el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$salida->{$_}{'marca'} = 'adidas'
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Luego haciendo un print(), o escribiendo en un archivo Excel, la salida es correcta: adidas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print $salida->{$_}{'marca'};
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora viene el problema.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$salida->{$_}{'marca'} = sub { my $a = "adidas"; return $a}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto me retorna CODE(0xa303878)

He probado colocando un & pero tampoco resulta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print &$salida->{$_}{'marca'};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me dice:

Sintáxis: [ Descargar ] [ Ocultar ]

¿Cuál podría ser el problema?

Gracias

Sub anónimo