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!

1 commento:

Anonimo ha detto...

They do not particularly have a worth; it's primarily based on the participant buy-in. Also, each participant 솔카지노 on a table performs with a unique colour chip. The minimal guess in roulette is determined by} the online on line casino, however can be as little as 10 pence. The most important consideration is choosing a minimal guess inside your finances, you may have the ability to|which you'll} afford to lose. Never chase your losses with roulette, it can possibly} lead to problem gambling. A pc or mobile gadget and an web connection are the only items you need to|you should|you have to} play.