Come leggere i file CSV in Perl

November 16

Come leggere i file CSV in Perl


CSV (Comma-Separated Value) è un formato di file speciale utilizzato per trasferire i dati del foglio da un'applicazione all'altra. I dati in formato CSV vengono memorizzati in un file di testo di base con i valori in ogni riga separati da virgole e ogni riga separati da uno spazio vuoto. Solitamente, ma non sempre, la prima riga è usato per dare il nome di colonne. Ad esempio, il seguente testo potrebbe essere parte di un foglio di calcolo CSV per i libri:

"Titolo", "Autore"
"Romeo e Giulietta", "William Shakespeare"
"Amleto", "William Shakespeare"

Leggi file CSV nel linguaggio di programmazione Perl utilizzando il testo :: biblioteca CSV.

istruzione

1 Creare un nuovo file di testo in un editor di testo. Qualsiasi editor di testo farà, tra cui Blocco note di Windows, ma il file deve terminare con l'estensione ".pl" di file e non ".txt" o ".rtf".

2 Incollare la seguente firma alla prima riga del file di testo. Anche se non richiesto, è utile se si distribuisce il lavoro ad altri o si dimentica poi che lingua lo script sta usando.

! / usr / bin / perl

3 Aggiungere la seguente riga al file di testo per importare il Perl CSV libreria di analisi:

utilizzare Text :: CSV;

4 Analizzare e stampare il contenuto di un file CSV incollando queste righe:

il mio $ input = 'file.csv';

il mio $ parser = Text :: CSV> new ();

aperto (CSV, "<", $ input);

while (<CSV>) {

if ($parser->parse($_)) {
my @columns = $parser->fields();
print &quot;@columns\n&quot;;
}

}
chiudere CSV;

Sostituire 'file.csv' con il nome del file CSV da analizzare.

Consigli e avvertenze

  • Installare il testo :: biblioteca CSV dalla directory CPAN automaticamente utilizzando il comando "CPAN Text :: CSV".
  • È possibile eseguire il comando eseguendo "perl csvparse.pl" in un terminale.

Articoli Correlati