Πώς να διαβάσετε CSV αρχεία σε Perl

CSV (Comma - Separated Value ) είναι μια ειδική μορφή αρχείου που χρησιμοποιείται για τη μεταφορά δεδομένων υπολογιστικών φύλλων από τη μία εφαρμογή στην άλλη . Τα δεδομένα σε μορφή CSV αποθηκεύεται σε ένα βασικό αρχείο κειμένου με τις τιμές σε κάθε γραμμή χωρίζονται με κόμματα και κάθε γραμμή χωρίζονται με κενό διάστημα . Συνήθως , αλλά όχι πάντα , η πρώτη γραμμή χρησιμοποιείται για να δώσει το όνομα των στηλών . Για παράδειγμα , το κείμενο που ακολουθεί θα μπορούσε να είναι μέρος ενός υπολογιστικού φύλλου CSV για τα βιβλία : "Τίτλος " , " Συγγραφέας " " Ρωμαίος και Ιουλιέτα " , " William Shakespeare " " Άμλετ " , " William Shakespeare " Διαβάστε τα αρχεία CSV στη γλώσσα προγραμματισμού Perl , χρησιμοποιώντας το κείμενο :: CSV βιβλιοθήκη. Οδηγίες
Η

1 Δημιουργήστε ένα νέο αρχείο κειμένου σε ένα πρόγραμμα επεξεργασίας κειμένου . Κάθε επεξεργαστής κειμένου θα κάνουμε , συμπεριλαμβανομένων των Windows Notepad , αλλά το αρχείο θα πρέπει να τελειώνει με το " . Pl " επέκταση αρχείου και όχι " . Txt " ή " . Rtf . " 2

Επικόλληση η μετά την υπογραφή με την πρώτη γραμμή του αρχείου κειμένου . Αν και δεν απαιτείται , βοηθά αν διανείμετε το έργο σας σε άλλους ή να ξεχάσει αργότερα σε ποια γλώσσα το σενάριο χρησιμοποιεί .

# ! /Usr /bin /perl εικόνων
3

Προσθέστε την ακόλουθη γραμμή στο αρχείο κειμένου για να εισαγάγετε το Perl CSV parsing βιβλιοθήκη:

χρησιμοποιήσει κείμενο :: CSV ?
Η 4

αναλύσει και να εκτυπώσετε τα περιεχόμενα ενός αρχείου CSV με επικόλληση αυτές τις γραμμές :

$ εισόδου μου = ' file.csv » ?

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

ανοιχτό ( CSV ​​, " <" , $ εισόδου) ?

ενώ ( ) {if ( $ parser - > parse ( $ _ ) ) { @ στήλες μου = $ parser - > τομείς ( ) ? print " @ στήλες \\ n" ? } } κοντά CSV ?

αντικατασταθούν οι λέξεις « file.csv » με το όνομα του αρχείου CSV για να αναλύσει

Η .