Modificadores de sentencia en Perl

Las formas postfijas que ponen if, unless y for después de la sentencia que protegen.

use strict;
use warnings;

my @temps = (18, 21, 35, 12);

# the condition rides behind the statement it guards
print "heat warning\n" if $temps[2] > 30;
print "cold snap\n" unless $temps[3] > 15;
print "$_ degrees\n" for @temps;

my $sum = 0;
$sum += $_ for @temps;
print "average ", $sum / @temps, "\n";

Cómo funciona

print ... if y unless protegen una sola sentencia sin llaves de ningún tipo.
El for @temps postfijo ejecuta la sentencia una vez por elemento, con $_ como valor.
$sum / @temps pone el arreglo en contexto escalar, así que divide entre el conteo.

Palabras clave y builtins usados aquí

for
if
my
print
unless
use

El intento, en números

Líneas: 13
Caracteres a escribir: 304
Tokens: 75
Ritmo de tres estrellas: 80 tpm

Al ritmo de tres estrellas de 80 tokens por minuto, este intento toma unos 56 segundos.

Escribe este fragmento

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

← Anterior Siguiente →