Hashes en Perl

La forma clave-valor de Perl: % para el hash entero, $ más llaves para un valor.

use strict;
use warnings;

my %score = (ada => 95, grace => 88);
$score{alan} = 91;

# one value wears the scalar sigil and a curly-brace key
print "ada scored $score{ada}\n";

for my $name (sort keys %score) {
    print "$name => $score{$name}\n";
}

delete $score{alan};
print "linus in? ", (exists $score{linus} ? "yes" : "no"), "\n";
print scalar(keys %score), " entries left\n";

Cómo funciona

1. => empareja claves con valores; asignar a $score{alan} agrega la clave al vuelo.
2. sort keys %score recorre las claves en orden; la interpolación lee cada valor.
3. delete elimina un par; exists pregunta por una clave sin crearla.

Palabras clave y builtins usados aquí

• delete
• exists
• for
• keys
• my
• print
• scalar
• sort
• use

El intento, en números

Líneas

16

Caracteres a escribir

379

Tokens

84

Ritmo de tres estrellas

65 tpm

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

Escribe este fragmento

Paso 3 de 3 en Escalares y signos; paso 3 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →

Hashes en otros lenguajes

• Ruby