Firmas de subrutina en Perl

Parámetros con nombre en la propia declaración — estables desde Perl 5.36, sin desempacar @_.

use strict;
use warnings;
use feature 'signatures';

sub area ($width, $height = $width) {
    return $width * $height;
}

sub tag ($label, @items) {
    return map { "$label: $_" } @items;
}

print area(3, 4), "\n";
print area(5), "\n";
print "$_\n" for tag("todo", "write", "test");

Cómo funciona

use feature 'signatures' activa la sintaxis para el archivo.
area nombra dos parámetros; el default $height = $width lee los anteriores — un solo argumento da un cuadrado.
Un @items final es un slurpy: tag toma una etiqueta y luego tantos elementos como pases.

Palabras clave y builtins usados aquí

for
map
print
return
sub
use

El intento, en números

Líneas: 15
Caracteres a escribir: 276
Tokens: 63
Ritmo de tres estrellas: 75 tpm

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

Escribe este fragmento

Paso 2 de 3 en Subrutinas; paso 17 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →