Bucles foreach en Perl

Tres formas de foreach: recorrer una lista, contar un rango y editar en el lugar.

use strict;
use warnings;

my @langs = ("perl", "ruby", "go");
foreach my $lang (@langs) {
    print uc($lang), "\n";
}

foreach my $n (1 .. 3) {
    print "square of $n is ", $n * $n, "\n";
}

# the loop variable aliases the list, so writes reach the array
my @nums = (1, 2, 3);
foreach my $n (@nums) {
    $n *= 10;
}
print "@nums\n";

Cómo funciona

foreach my $lang (@langs) limita la variable al bucle; uc la grita en mayúsculas.
El operador de rango 1 .. 3 cuenta hacia arriba sin llevar índices a mano.
La variable del bucle es un alias de la lista, así que $n *= 10 escribe directo en @nums.

Palabras clave y builtins usados aquí

foreach
my
print
uc
use

El intento, en números

Líneas: 18
Caracteres a escribir: 324
Tokens: 90
Ritmo de tres estrellas: 75 tpm

Al ritmo de tres estrellas de 75 tokens por minuto, este intento toma unos 72 segundos.

Escribe este fragmento

Paso 2 de 3 en Control de flujo; paso 5 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →