Funciones de cadena en Perl

El kit diario de cadenas: mayúsculas, longitud, búsqueda, rebanado, split y join.

use strict;
use warnings;

my $line = "the quick brown fox";

print uc($line), "\n";
print ucfirst($line), "\n";
print length($line), " chars\n";
print index($line, "brown"), "\n";
print substr($line, 4, 5), "\n";

my @words = split / /, $line;
print join("-", @words), "\n";
print "-" x 19, "\n";

Cómo funciona

1. uc grita la línea entera; ucfirst pone en mayúscula solo la primera letra.
2. length cuenta caracteres, index halla dónde empieza una palabra, substr rebana cinco.
3. split parte la línea en una lista de palabras y join la vuelve a pegar con guiones.
4. El operador x repite una cadena — una regla de 19 guiones en cinco teclas.

Palabras clave y builtins usados aquí

• index
• join
• length
• my
• print
• split
• substr
• uc
• ucfirst
• use

El intento, en números

Líneas

14

Caracteres a escribir

297

Tokens

91

Ritmo de tres estrellas

75 tpm

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

Escribe este fragmento

Paso 1 de 3 en Cadenas; paso 13 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →