4 mar 2011

Scorrere un file in perl

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: