E/S de archivos en Perl

La forma moderna de open: tres argumentos, un handle léxico y or die.

use strict;
use warnings;

# three-arg open with a lexical filehandle
open my $out, ">", "notes.txt" or die "write: $!";
print {$out} "line $_\n" for 1 .. 3;
close $out;

open my $in, "<", "notes.txt" or die "read: $!";
while (my $line = <$in>) {
    chomp $line;
    print "read: $line\n";
}
close $in;

unlink "notes.txt" or die "unlink: $!";

Cómo funciona

1. El open de tres argumentos separa el modo del nombre; or die $! reporta el fallo.
2. print {$out} escribe en el handle; un modificador de sentencia repite tres veces.
3. while (<$in>) lee una línea a la vez y chomp recorta el salto de línea.
4. unlink borra el archivo temporal para que la corrida no deje nada atrás.

Palabras clave y builtins usados aquí

• chomp
• close
• die
• for
• my
• open
• print
• unlink
• use
• while

El intento, en números

Líneas

16

Caracteres a escribir

336

Tokens

73

Ritmo de tres estrellas

75 tpm

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

Escribe este fragmento

Paso 1 de 3 en Archivos y Perl moderno; paso 22 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →