Per scorrere un file in Perl con record a larghezza fissa, si può partire da questo codice:
#!/usr/bin/perl -w
open(my $fh, "<", $nomefile) or die $!;
while(read($fh, $buf, larghezza)) {
# fai qualcosa con $buf, es. richiama la funzione unpack
}
se invece si vuole leggere un file di testo, con gli a capo al punto giusto, si può usare questo codice che legge tutto il file e lo carica in un array:
#!/usr/bin/perl -w
open(SRC, $nomefile) || die("Impossibile aprire il file di origine!");
@righe=;
close(SRC);
oppure si può leggere lo stesso file, ma una riga per volta:
#!/usr/bin/perl -w
open(SRC, $nomefile) || die("Impossibile aprire il file di origine!");
while () {
# fai qualcosa con la riga corrente $_
}
sono banalità, ma siccome non programmo mai con un unico linguaggio di programmazione ma con quello che capita... non mi ricordo mai le sintassi, e allora le scrivo qui così le ritrovo subito!
Naturalmente in Perl ci sono altri mille modi diversi per leggere un file!
Nessun commento:
Posta un commento