Πώς να αναλύσει CSV σε Perl

( τιμές διαχωρισμένες με κόμμα) CSV αρχεία περιέχουν κείμενο ή τα αριθμητικά πεδία που χωρίζονται με κόμμα . Είναι μια κοινή μορφή αρχείου που χρησιμοποιείται για την ανταλλαγή δεδομένων ανάμεσα σε προγράμματα υπολογιστικών φύλλων , όπως το Microsoft Excel ή το Microsoft Works , και τις εφαρμογές του χρήστη . Οι τιμές κειμένου σε αρχεία CSV που περιβάλλεται από τους χαρακτήρες διπλών . Η γλώσσα Perl σας παρέχει με την ενότητα " Κείμενο :: CSV " για την ανάλυση των δεδομένων CSV , το οποίο σας δίνει τη δυνατότητα να εκτελέσει τη σωστή κατανομή του αρχείου CSV στο πρόγραμμά σας Perl , εάν πεδία κειμένου στο αρχείο περιλαμβάνει κόμμα . Ο ευκολότερος τρόπος για να δείξει αυτή τη διαδικασία είναι να χρησιμοποιήσουμε ένα παράδειγμα , όπως μια λίστα των κρατών και των κεφαλαίων . Τα πράγματα που θα χρειαστείτε
ActiveState Perl έκδοση 5.12 για Win32
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows , επιλέξτε " Microsoft Works " και στη συνέχεια κάντε κλικ στο " Microsoft Έργα φύλλο " 2

Πληκτρολογήστε τα ακόλουθα δεδομένα στα πρώτα 11 σειρές στήλη" Α " : .

μέλος ( Capital )

Alabama

Καλιφόρνια , Σακραμέντο

Delaware

Φλόριντα

Γεωργία , Ατλάντα

Χαβάη

Idaho

Κάνσας

Maine

Ohio , Columbus
εικόνων 3

Πληκτρολογήστε τα ακόλουθα δεδομένα στα πρώτα 11 γραμμές του " Β " Φτηνές 4

Κάντε κλικ στο " Αρχείο" και στη συνέχεια κάντε κλικ στο κουμπί " Αποθήκευση ως . " Πληκτρολογήστε " states.csv " στο " Όνομα αρχείου " κουτί . Επιλέξτε το " Κείμενο & κόμματα ( . Csv ) " από το "Save As Type " κουτί και κάντε κλικ στο κουμπί "Αποθήκευση" .
5

Κάντε κλικ στο " Start" των Windows και στη συνέχεια κάντε κλικ στο " Σημειωματάριο " για να ανοίξει ο επεξεργαστής κειμένου Notepad
Η 6

Προσθέστε τον ακόλουθο κώδικα στο ανοιχτό παράθυρο : .

χρησιμοποιούν αυστηρή?

χρησιμοποιούν προειδοποιήσεις ?

χρησιμοποιήσει κείμενο :: CSV_XS ?

# ανοικτό αρχείο για την ανάλυση

$ file μου = " c : \\ states.csv » ?

# ορίζουν τη μεταβλητή πεδίο κειμένου

$ μου csv = Κείμενο :: CSV_XS - > νέο ( ) ?

ανοιχτό ( CSV ​​, " <" , $ file ) ή να πεθάνουν $ ? !

# σπάσει το αρχείο σε αρχεία κειμένου

ενώ ( ) {

επόμενη if ( $ 1 == . ) ?

if ($ csv - > μεταγλώττιση ( $ _ ) ) {

μου @ στήλες = $ csv - > πεδία ( ) ?

# οθόνη κάθε ρεκόρ σε ξεχωριστή γραμμή

εκτύπωσης " κράτος ( Capital ) : $ στήλες [ 0 ] \\ n \\ Trank :

$ στήλες [ 1 ] \\ r \\ n " ?

} else {

μου $ err = $ csv - > ? error_input ?

print " Αποτυχία ανάλυσης γραμμή : $ err " ?

} }

κοντά CSV ?
Η 7

Κάντε κλικ στο " Αρχείο" και στη συνέχεια κάντε κλικ στο κουμπί "Αποθήκευση". Πληκτρολογήστε " parse.pl " στο πλαίσιο " Όνομα αρχείου" και κάντε κλικ στο κουμπί "Αποθήκευση" .
8

Κάντε κλικ στο " Start" των Windows και στη συνέχεια κάντε κλικ στο " Run". Πληκτρολογήστε "cmd" στο παράθυρο "Άνοιγμα" και κάντε κλικ στο " OK " για να ανοίξει το παράθυρο γραμμής εντολών .
Η 9

Πληκτρολογήστε " cd \\" και πατήστε το πλήκτρο "Enter" .

10

Πληκτρολογήστε " perl parse.pl " στην προτροπή . Πατήστε το πλήκτρο "Enter" για να εκτελέσετε το " αναλύσει " Perl script για να αναλύσει το " δηλώνει " το αρχείο CSV και να εμφανίσετε πεδία κειμένου του στην οθόνη .
Η
εικόνων