Esa línea está declarando
$labels como una variable escalar (comienza por el sigilo '$'), así que solo va a almacenar un valor.
Y está definiendo el primer valor para esa variable: una referencia a un
array anónimo (por la presencia de los corchetes).
Esa línea es una forma abreviada de escribir esto:
my @temporal = ( "B","C","F","I","P","SE","M","TP","VC","VI" );
my $labels = \@temporal;solo que nos ahorramos el tener que crear una variable
@temporal.
A partir de esa línea, podemos usar
$labels como si fuera un
array completo, pero atendiendo a la sintaxis:
Using perl Syntax Highlighting
foreach my $label (@$labels) { # recorremos todos los valores del array referenciado por $labels
print "$label\n";
}
print $label->[2], "\n"; # imprimimos el tercer valor del array 'apuntado' por $labels
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Las referencias son básicas en Perl, para poder crear estructuras complejas de datos, y para pasar/recibir información a/desde subrutinas.
Más información en tu propio ordenador en
perldoc perlref,
y en la Web (
traducido).