Installeer de Perl module " Spreadsheet :: parseexcel ' op uw systeem . Dit is de standaard Perl module voor het lezen van gegevens uit Excel -bestanden . Het proces van de installatie is afhankelijk van uw type systeem

Als je ActiveState Perl ( dwz , Perl voor Windows . ) : .

Open een opdrachtpromptvenster . Ga naar de " bak " submap van de map waar uw ActiveState Perl-programma zich bevindt . Als je niet weet waar het is , gebruik de zoekfunctie van Windows om naar " ActiveState " vinden en noteer het " pad " naar de map ActiveState Perl . Ga dan naar uw Command Prompt venster en typ " DIR " gevolgd door die directory pad en druk op Return . Typ vervolgens " DIR bin" en druk op Return .

Type
" ppm " en druk op Return . Wat tekst zal verschijnen en dan zul je in staat zijn om opdrachten weer typen . Typ ' install Spreadsheet :: parseexcel " en druk op Return . Wat meer tekst verschijnt en vervolgens de installatie zal worden afgerond

Als je standaard Perl : .

Open een command prompt of terminal -venster . In Mac OS X , wordt het programma met de naam Terminal . Typ het volgende :

perl - MCPAN - e install Spreadsheet
:: parseexcel

Druk op Return . Een veel tekst zal verschijnen en dan de installatie zal worden voltooid . Kopen van 2

Maak uw Excel -bestand toegankelijk voor uw Perl script . Maak een kopie van het Excel-bestand met de naam " xls_test.xls " voor deze les en verplaats deze naar de map waar uw Perl script zich bevindt .
3

Laad uw Excel -bestand in uw perl script met deze code :

gebruik Spreadsheet
:: parseexcel ;

mijn $ xlsparser = Spreadsheet :: parseexcel - > new ( ) ;

mijn $ xlsbook = $ parser - > parse ( ' xsl_test.xls ' ) ;

mijn $ xls = $ xls - > werkblad ( 0 ) ;

Nu hebben we een object ( " $ xls " ) dat de gegevens van het eerste werkblad van onze Excel -bestand bevat . Als u wilt gegevens uit een ander werkblad te krijgen , vervang dan de nul ( " 0 " ) in de vierde regel met het nummer van uw werkblad min een . Bijvoorbeeld , het eerste nummer werkblad nul ( " 0 " ) , nummer van de derde werkblad is twee ( " 2 " ) , enzovoort . Als uw Excel-bestand heeft slechts een werkblad , gebruik de code als - is .
4

Zoek uit welke kolommen en rijen uw spreadsheet heeft . Gebruik deze code :

mijn
( $ row_first , $ row_last ) = $ xls - > row_range ( ) ;

mijn ( $ col_first , $ col_last ) = $ xls - > col_range ( ) ;
5

Maak een variabele aan het CSV gegevens op te slaan . Gebruik deze code :

mijn $ csv = '' ;
6

Maak de CSV data . Gebruik deze code om het te doen :

voor mijn $ rij ( $ row_first .. $ row_last ) { # Stap voor stap door elke rij

voor mijn $ col ( $ col_first .. $ col_last ) { # Stap door elke kolom

mijn $ cel = $ xls - > get_cell ( $ row , $ col ) ; # Haal de huidige cel

volgende tenzij $ cel ;

$ csv = $ cell - > geformatteerd ( ) ; . # Haal ruwe data van de cel - geen grens kleuren of iets dergelijks

if ( $ col == $ col_last ) {

$ csv = " \\ n" ; . . # Maak een nieuwe regel aan het eind van de rij

} else {

$ csv
= " , " , " Zet een komma tussen ieder Item

}

}

}
7

Sla de gegevens in $ csv naar een bestand met behulp van Perl -bestand functies voor het schrijven . Zorg uw bestandsnaam eindigt op " . csv " voor de duidelijkheid .