Installare il modulo Perl " Spreadsheet :: ParseExcel " sul vostro sistema . Questo è il modulo Perl standard per la lettura dei dati da file Excel . La procedura di installazione dipende dal tipo di sistema
Se hai ActiveState Perl (cioè , Perl per Windows . ) : .
Aprire una finestra del prompt dei comandi . Vai alla " bin" sottocartella della cartella in cui si trova il programma di ActiveState Perl . Se non sai dove si trova, utilizzare la funzione di ricerca di Windows per trovare " ActiveState " e prendere nota del " percorso di directory " alla cartella ActiveState Perl . Poi vai alla finestra del prompt dei comandi e digitare " DIR ", seguito da quello percorso di directory e quindi premere Invio. Quindi digitare "bin DIR " e premere Invio .
Tipo " ppm ", quindi premere Invio. Del testo apparirà e poi sarete in grado di digitare di nuovo i comandi . Tipo "install Spreadsheet :: ParseExcel " e premere Invio . Alcuni più testo apparirà e quindi l'installazione sarà completata
Se avete standard di Perl : .
Aprire una finestra del prompt dei comandi o un terminale . In Mac OS X , il programma si chiama Terminal . Digitare quanto segue :
perl- MCPAN -e install Spreadsheet :: ParseExcel
Premere Invio. Un sacco di testo apparirà e quindi l'installazione sarà completa .
2
Fai il file di Excel accessibili allo script Perl . Creare una copia del file di Excel con il nome di " xls_test.xls " per questo tutorial e spostarlo nella cartella in cui si trova lo script Perl .
3
Caricare il file di Excel nella vostra Perl script con questo codice:
uso Spreadsheet :: ParseExcel ;
my $ xlsparser = Spreadsheet :: ParseExcel - > new ( ) ;
mio xlsbook $ = $ parser - > parse ( ' xsl_test.xls ');
my $ = $ xls xls - > foglio di lavoro ( 0 ) ;
Ora abbiamo un oggetto ( " $ xls " ) che detiene i dati del primo foglio di lavoro del nostro file di Excel . Se si desidera ottenere dati da un foglio di lavoro diverso , sostituire lo zero ( "0" ) nella quarta riga con il numero del foglio di lavoro meno uno. Per esempio , il numero del primo foglio è zero ( " 0 " ) , il numero del terzo foglio è di due ( " 2" ) e così via . Se il file di Excel ha un solo foglio di lavoro , utilizzare il codice come - è .
4
Scopri cosa colonne e righe foglio di calcolo ha. Utilizzare questo codice:
mio ( $ row_first , $ row_last ) = $ xls - > row_range ();
mio ( $ col_first , $ col_last ) = $ xls - > col_range ( ) ;
5
Creare una variabile per memorizzare i dati CSV . Utilizzare questo codice:
my $ csv ='';
6
Creare i dati CSV . Usa questo codice per farlo :
per il mio $ riga ( $ row_first .. $ row_last ) { # Passaggio attraverso ogni riga
per il mio $ col ( $ col_first .. $ col_last ) { # Passo attraverso ogni colonna
mia cella $ = $ xls - > get_cell ( $ row , $ col) ; # Prendi il corrente cella
prossimo a meno che $ cella ;
$ csv = $ cella - > non formattato ( ) . # ottenere i dati grezzi della cella - senza coloranti di confine o qualcosa di simile
if ( $ col == $ col_last ) {
$ csv = " \\ n"; . . # Fai una nuova riga alla fine della riga
} else {
$ csv = " , " ; " aggiungere una virgola tra ogni voce
}
}
}
7
salvare i dati in $ csv in un file utilizzando le funzioni di file - scrittura di Perl . assicurarsi il nome del file termina con " . csv" per chiarezza .
Programmazione © www.354353.com