Bedrifter vanligvis bruker Excel til å lagre tabeller av data . Ofte vil disse selskapene finner en bruk for at data som krever konvertere den til et annet format for annen programvare for å bruke. Men Excel-filer ikke er designet for å leses av andre programmer . Dataene de inneholder må konverteres til et felles format, for eksempel kommadelte ( CSV ) filer. For folk med mye Excel-filer til å konvertere , er den vanlige prosessen tungvint. Så Perl evne til å håndtere data -prosessering oppgaver raskt og enkelt kommer godt med i dette tilfellet. Du trenger:
Perl eller ActiveState Perl
CPAN hvis du har Perl
PPM hvis du har Vis ActiveState Perl
Flere Instruksjoner
Lag din CSV File
1
Installer Perl modulen " Spreadsheet :: ParseExcel " på systemet ditt. Dette er standard Perl modul for å lese data fra Excel-filer . Prosessen med installasjonen avhenger av type anlegg
p Hvis du har ActiveState Perl (dvs. Perl for Windows. ) : .
Åpne et ledetekst -vinduet . Gå til " bin" undermappe til mappen der ActiveState Perl -programmet ligger . Hvis du ikke vet hvor det er, så bruk Windows søkemotoren til å finne " ActiveState " og gjøre et notat av "katalogen path" til ActiveState Perl -mappen . Så gå til din Command Prompt vindu og skriv " DIR " etterfulgt av den katalogen banen og trykk på Enter. Deretter skriver du " DIR bin" og trykk Enter .
Type " ppm " og trykker på Enter . Noe tekst vises, og da vil du være i stand til å skrive kommandoer på nytt. Type " install Spreadsheet :: ParseExcel " og trykk Enter . Litt mer tekst vises og installasjonen vil være ferdig
p Hvis du har standard Perl : .
Åpne et ledetekst eller terminal vindu . I Mac OS X , er programmet heter Terminal . Skriv inn følgende : en
perl - MCPAN - e install Spreadsheet :: ParseExcel
Trykk på Retur . Mye av teksten vises, og deretter installasjonen vil bli fullført.
2
Gjør din Excel-filen tilgjengelig for din Perl-skript . Lag en kopi av Excel- fil med navnet " xls_test.xls " for denne opplæringen, og flytte den til mappen der Perl script ligger .
3
Legg inn Excel-fil til din Perl script med denne koden : en
bruk Spreadsheet :: ParseExcel ;
min $ xlsparser = Spreadsheet :: ParseExcel - > new ();
min $ xlsbook = $ parser - > parse (' xsl_test.xls ');
min $ xls = $ xls - > regneark ( 0 ) ;
nå har vi et objekt ("$ xls ") som holder dataene fra det første regnearket i vår Excel-fil . Hvis du ønsker å få data fra et annet regneark , erstatte null ( "0" ) i fjerde takt med antall regnearket minus én . For eksempel er det første regnearket nummer null ( "0") , er den tredje regnearket nummer to ( "2") og så videre. Hvis Excel- filen bare har ett regneark , bruke koden som det er.
4
Finn ut hva kolonner og rader regnearket har . Bruk denne koden : en
min ( $ row_first , $ row_last ) = $ xls - > row_range ();
min ( $ col_first , $ col_last ) = $ xls - > col_range ( ) ;
5
Lag en variabel til å lagre CSV- data . Bruk denne koden : en
min $ csv = '';
6
Lag CSV data . Bruk denne koden for å gjøre det : en
for min $ rad ( $ row_first .. $ row_last ) {# Gå gjennom hver rad
for min $ col ( $ col_first .. $ col_last ) { # Gå gjennom hver kolonne
min $ celle = $ xls - > get_cell ( $ row , $ col ) ; # Få den gjeldende cellen
neste mindre $ celle ;
< p > $ csv = $ celle - > uformatert (); . # Få cellens rådata - ingen kantlinjefarger eller noe sånt
if ( $ col == $ col_last ) {
< p > $ csv = "\\ n"; . . # Lag en ny linje på slutten av raden
} else {
$ csv = "," , "Legg til et komma mellom hver element
}
}
}
7
Lagre dataene i $ csv til en fil ved hjelp av Perls fil -skriving funksjoner. Sørg filnavnet slutter på " . csv " for klarhet.
