Referencias en Perl

Cómo Perl apunta a arreglos y hashes en lugar de copiarlos.

use strict;
use warnings;

my @primes  = (2, 3, 5, 7);
my %capital = (France => "Paris", Japan => "Tokyo");

# a backslash takes a reference; the arrow dereferences
my $pref = \@primes;
my $cref = \%capital;

print "first prime: $pref->[0]\n";
print "capital of Japan: $cref->{Japan}\n";
print "count: ", scalar @{$pref}, "\n";
print "ref types: ", ref($pref), " and ", ref($cref), "\n";

Cómo funciona

1. La barra invertida toma una referencia: \@primes y \%capital son escalares comunes.
2. La flecha atraviesa: $pref->[0] indexa, $cref->{Japan} busca la clave.
3. @{$pref} recupera el arreglo entero; ref nombra lo que guarda una referencia.

Palabras clave y builtins usados aquí

• my
• print
• ref
• scalar
• use

El intento, en números

Líneas

14

Caracteres a escribir

387

Tokens

90

Ritmo de tres estrellas

65 tpm

Al ritmo de tres estrellas de 65 tokens por minuto, este intento toma unos 83 segundos.

Escribe este fragmento

Paso 1 de 3 en Referencias y estructuras; paso 19 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →