Arreglos y listas en Perl

El signo @ para el arreglo entero, $ para un elemento, e índices negativos de regalo.

use strict;
use warnings;

my @langs = ("perl", "ruby", "go");
push @langs, "rust";

# a single element wears the scalar sigil
print "first: $langs[0], last: $langs[-1]\n";
print scalar(@langs), " languages\n";

my @pair = @langs[1, 2];
print "slice: @pair\n";
print join(", ", sort @langs), "\n";

Cómo funciona

1. push agrega al final; $langs[0] y $langs[-1] toman los extremos con el signo escalar.
2. scalar(@langs) es el conteo; @langs[1, 2] rebana dos elementos a la vez.
3. sort devuelve una lista nueva ordenada y join la pega en una sola cadena.

Palabras clave y builtins usados aquí

• join
• my
• print
• push
• scalar
• sort
• use

El intento, en números

Líneas

13

Caracteres a escribir

297

Tokens

64

Ritmo de tres estrellas

70 tpm

Al ritmo de tres estrellas de 70 tokens por minuto, este intento toma unos 55 segundos.

Escribe este fragmento

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

← Anterior Siguiente →