Come leggere i file CSV in Perl

CSV ( comma-separated value ) è un formato di file speciale utilizzato per trasferire i dati di un foglio da un'applicazione a un'altra . I dati in formato CSV vengono memorizzati in un file di testo di base con i valori di ciascuna riga separati da virgola e ogni riga separati da uno spazio vuoto. Di solito , ma non sempre , la prima linea viene utilizzato 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 Text :: CSV biblioteca . Istruzioni
1

Creare un nuovo file di testo in un editor di testo . Qualsiasi editor di testo farà , anche Blocco Note di Windows , ma il file deve terminare con l'estensione ". Pl" estensione del file e non " . Txt " o " . Rtf ".
2

Incolla la seguente firma alla prima riga del file di testo . Anche se non richiesto , è utile se si distribuisce il lavoro agli 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 la libreria di parsing Perl CSV :

uso text :: CSV ;
4

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

mio $ input = ' file.csv ';

my $ parser = Text :: CSV - > new ( ) ;

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

mentre ( ) {if ( $ parser -> parse ( $ _ ) ) {my @ colonne = $ parser -> campi ( ) ; print " @ colonne \\ n"; } } vicino CSV .

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