Πώς να χειραγωγήσουν δεδομένων σε Perl

Perl έχει σχεδιαστεί για την ανάγνωση και το χειρισμό των δεδομένων κειμένου . Είναι εύκολο να χειραγωγήσουν τρεις βασικές δομές δεδομένων ( η μονοδιάστατη, τον κατάλογο και το hash ), επειδή ο διερμηνέας Perl μπορεί να πληκτρολογήσετε με βάση τα συγκυριακά στοιχεία . Η πιο συχνά χειραγωγείται μορφή δεδομένων σε Perl είναι τιμές διαχωρισμένες με κόμμα . Οδηγίες
Η

1 Ανοίξτε το αρχείο δεδομένων , αν δεν είστε ανάγνωση δεδομένων από STDIN ή DATA . Χρησιμοποιήστε ένα filehandle που είναι εύκολα αναγνωρίσιμα : "open CSVFILE , " test.csv " ? " 2

Διαβάστε τα δεδομένα . Με μικρά αρχεία , μπορείτε να διαβάσετε όλες τις γραμμές ταυτόχρονα . Για μεγάλα αρχεία , θα πρέπει να διαβάσετε μια γραμμή σε μια στιγμή και να επεξεργαστεί πριν την ανάγνωση της επόμενης γραμμής . Εδώ , η αγκύλη "μαγικό σύνταξη " για την ανάγνωση όλων των κονδυλίων χρησιμοποιείται για να διαβάσει όλες τις γραμμές στο πίνακα @ γραμμές : "@ γραμμές = ? "
Εικόνων 3

Αφαιρέστε τις νέες γραμμές του τέλος της κάθε γραμμής , χρησιμοποιώντας τη λειτουργία χάρτη . Οι νέες γραμμές δεν είναι απαραίτητες , δεδομένου ότι δεν έχουν κανένα νόημα από τη στιγμή που όλες οι γραμμές που διαβάστηκαν μέσα Η λειτουργία του χάρτη θα καλέσει το μπλοκ πέρασε ως πρώτη παράμετρο, για κάθε στοιχείο στη λίστα : "χάρτης ( { } @ chomp γραμμές ) ? "
Φτηνές 4

Χωρίστε τις γραμμές . Οι τιμές διαχωρισμένες με κόμμα πρέπει να χωριστεί σε συστοιχίες , τα οποία μπορεί να επιτευχθεί με τη χρήση του διαχωρισμού και χάρτης λειτουργίας . Οι γραμμές θα επανασυνδεθούν με παρόμοιο τρόπο , όταν τα δεδομένα θα τυπωθούν πάλι. "@ γραμμές = χάρτη ( { [ split /, /] } @ γραμμές) ? " .
5

Χειριστείτε τα δεδομένα , τώρα που όλα τα δεδομένα στη μνήμη βρίσκεται σε μια εύκολα προσβάσιμη μορφή

6

Loop πάνω τους με τη λέξη-κλειδί foreach . Η λέξη-κλειδί foreach εκτελείται ένα μπλοκ για κάθε στοιχείο σε έναν πίνακα , την απόδοση σε κάθε στοιχείο του πίνακα αναφορά στην προεπιλεγμένη μεταβλητή . Αυτό το παράδειγμα υποθέτει το δεύτερο πεδίο ( ευρετήριο πίνακα 1 ) περιέχει μια αριθμητική τιμή , και προσθέτει 20 σε αυτό . Οιουσδήποτε άλλους χειρισμούς , συμπεριλαμβανομένων των μαθηματικών και κορδόνι χειρισμούς , μπορεί να πραγματοποιηθεί με παρόμοιο τρόπο : " foreach ( @ γραμμές) { $ _ - > [ 1 ] + = 20 ? } "
Η 7

Επανένταξη της δεδομένα πριν να μπορεί να γραφτεί πίσω σε ένα αρχείο csv . Τα πεδία πρέπει να επανασυνδεθούν με κόμματα : "@ γραμμές = χάρτης ( { join" , " @ { $ _ } } @ γραμμές) ? "
8

Εκτυπώστε τα δεδομένα . Και πάλι , θα σας βρόχο over @ γραμμές , αλλά αυτή τη φορά εκτυπώσετε μόνο κάθε γραμμή . Εδώ οι γραμμές τυπώνονται σε STDOUT , ​​αλλά θα μπορούσε εξίσου εύκολα να ανοίξετε ένα άλλο αρχείο και να εκτυπώσετε στο ότι : " foreach ( @ γραμμές) { . Print $ _ " \\ n " ? } "
Εικόνων