CSV ( comma separated values ) Ontleed bestanden bevatten tekst of numerieke velden die worden gescheiden door komma's . Het is een gemeenschappelijk bestandsformaat dat gebruikt wordt om gegevens tussen spreadsheetprogramma's , zoals Microsoft Excel of Microsoft Works en gebruikerstoepassingen wisselen . De tekst waarden in CSV-bestanden worden omgeven door dubbele aanhalingstekens . De Perl taal voorziet u van de " Text :: CSV " module voor het ontleden van CSV data , die geeft je de mogelijkheid om de juiste verdeling van een CSV-bestand uit te voeren in uw Perl -programma , als tekstvelden in het bestand op te nemen komma . De eenvoudigste manier om dit proces te tonen is om een voorbeeld te gebruiken , zoals een lijst van staten en hoofdsteden . Wat je nodig hebt
ActiveState Perl versie 5.12 voor Win32
Toon Meer Aanwijzingen
1 Klik op "Start " in Windows , selecteer " Microsoft Works " en klik op " Microsoft . werkt Spreadsheet ' kopen van 2 Voer de volgende gegevens in de eerste 11 rijen van de " A kolom " : Staat
( Kapitaal ) op Alabama
Californië , Sacramento
Delaware
Florida Georgia
, Atlanta
Hawaï
Idaho Kansas
Maine Ohio
, Columbus
3 Voer de volgende gegevens in de eerste 11 rijen van de " B " Goedkope 4 Klik op " File " en klik op "Opslaan als . " Enter " states.csv " in het vak "Bestandsnaam " . Kies de " Tekst & komma ( . Csv ) " optie uit het " Opslaan als type " en klik op de knop "Bewaar" .
5 Klik op "Start " in Windows en klik vervolgens op "Notepad " te openen . de Notepad teksteditor
6 Voeg de volgende code in het open raam :
use strict; gebruik waarschuwingen
; gebruik tekst
:: CSV_XS ; # geopend bestand
voor het ontleden
mijn $ file = ' c : \\ states.csv ' ;
# define het tekstveld variabele
my $ csv = tekst :: CSV_XS - > new ( ) ; geopend
( CSV , " < " , $ bestand ) of sterven $ ; Geld verdienen # breken de bestand in tekst platen
terwijl ( ) {
volgende if ( $ == 1 . ) ;
if ( $ csv - > parse ( $ _ ) ) { mijn @ columns = $ csv - > velden (
) ;
# weer elke record op een afzonderlijke regel print " Staat
(Capital ) : $ columns [ 0 ] \\ n \\ Trank :
$ columns [ 1 ] \\ r \\ n " ;
} else {
mijn $ err = $ csv - > , error_input ; afdruk
" Failed to parse lijn : $ err " ;
} } dicht CSV
;
7 Klik op " File " en klik op " Opslaan ". Enter " parse.pl " in het vak "Bestandsnaam " en klik op de knop "Bewaar" .
8 Klik op "Start " in Windows en klik vervolgens op ' Uitvoeren '. Voer " cmd " in het vak "Open " en klik op "OK " om de command line venster te openen .
Type 9 in " cd \\ " en druk op de " Enter" knop .
< br > Type 10 in " perl parse.pl " op de prompt . Druk op de " Enter " -toets om de " parse " Perl script uitvoeren om de " staten " CSV-bestand ontleden en zijn tekstvelden weergegeven op het scherm .
|
