Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Perl Programming >> .

Come fare il parsing CSV in Perl

CSV ( valori separati da virgola ) file contengono testo o campi numerici che sono separati da virgole. Si tratta di un formato di file comunemente utilizzato per lo scambio di dati tra programmi di fogli di calcolo , ad esempio Microsoft Excel o Microsoft Works , e le applicazioni utente . I valori di testo in file CSV sono circondati da personaggi doppi apici . Il linguaggio Perl fornisce il " Text :: CSV" Modulo per l'analisi di dati CSV , che vi dà la possibilità di eseguire la corretta ripartizione di un file CSV nel vostro programma Perl , se i campi di testo nel file includono le virgole . Il modo più semplice per mostrare questo processo è quello di usare un esempio , come ad esempio un elenco di stati e capitali . Cose che ti serviranno
ActiveState Perl versione 5.12 per Win32
Mostra più istruzioni
1

clic su "Start " di Windows , selezionare " Microsoft Works " e quindi fare clic su "Microsoft . opere foglio di calcolo "
2

Inserisci i seguenti dati nelle prime 11 righe della " colonna " :
Stato

(Capital ) per

Alabama

California , Sacramento

Delaware

Florida

Georgia , Atlanta

Hawaii

Idaho

Kansas

Maine

Ohio , Columbus
3

Inserisci i seguenti dati nelle prime 11 righe del " B "
4

Fare clic su " File " e poi su "Salva con nome ". Inserire " states.csv " nella casella "Nome file" . Scegliere il " Testo e virgole ( . Csv ) " opzione "Salva come tipo " e fare clic sul pulsante "Salva " .
5

Fare clic su " Start" di Windows e quindi fare clic su " Blocco note " per aprire . l'editor di testo Notepad
6

Aggiungere il seguente codice nella finestra aperta :

use strict ;
use warnings

;

utilizzo testo :: CSV_XS ;

file di # aperto per l'analisi

mio $ file = ' c : \\ states.csv ';

# definiscono il campo di testo variabile

my $ csv = Testo :: CSV_XS - > new ( ) ;

aperto ( CSV ​​, " < " , $ file ) or die $ ; !

# abbattere il file in record di testo

mentre ( ) {

successivo if ( $ 1 == . ) ;

if ( $ csv - > parse ( $ _ ) ) {

miei @ colonne = $ csv -> campi ( );

# visualizzare per ogni record in una riga

stampa Stato separato " (Capital ) : $ colonne [ 0 ] \\ n \\ Trank :

$ colonne [ 1 ] \\ r \\ n ";

} else {

my $ err = $ csv - > , error_input ;

print "Impossibile analizzare la riga : $ err " ;

}

}

vicino CSV ;
7

Fare clic su " File" e poi cliccare su " Salva ". Inserire " parse.pl " nella casella "Nome file" e fare clic sul pulsante "Salva" .
8

Fare clic su " Start" di Windows e quindi fare clic su "Esegui ". Digitare "cmd " nella casella "Apri" e fare clic su "OK" per aprire la finestra della riga di comando .
9

Digitare " cd \\ " e premere il tasto "Invio" .

10

Digitare " perl parse.pl " al prompt . Premere il tasto "Enter" per eseguire lo script Perl "parse " per analizzare il "stati" file CSV e visualizzare i campi di testo sullo schermo.

 

Programmazione © www.354353.com