Πώς να μετατρέψετε XLS σε CSV για Perl

Επιχειρήσεις συνήθως χρησιμοποιούν το Excel για την αποθήκευση πινάκων δεδομένων . Συχνά , αυτές οι εταιρείες θα βρει μια χρήση για τα δεδομένα που απαιτεί τη μετατροπή της σε μια διαφορετική μορφή για άλλο λογισμικό για να χρησιμοποιήσει . Όμως, τα αρχεία Excel δεν έχουν σχεδιαστεί για να διαβαστούν από άλλα προγράμματα . Τα δεδομένα που περιέχουν τις ανάγκες που πρέπει να μετατραπεί σε μια κοινή μορφή , όπως τιμές διαχωρισμένες με κόμματα ( CSV ​​) αρχεία . Για τους ανθρώπους με πολλά αρχεία Excel για τη μετατροπή , η συνήθης διαδικασία είναι δυσκίνητη . Έτσι, η ικανότητα της Perl να χειριστεί τα καθήκοντα επεξεργασίας δεδομένων γρήγορα και εύκολα έρχεται σε βολικό σε αυτή την περίπτωση . Τα πράγματα που θα χρειαστείτε
Perl ή ActiveState Perl
CPAN αν έχετε Perl
PPM αν έχετε ActiveState Perl
Η Εμφάνιση Περισσότερες οδηγίες
Δημιουργία CSV σας αρχείων

1

Τοποθετήστε την Perl ενότητα " Spreadsheet :: ParseExcel " στο σύστημά σας . Αυτή είναι η βασική μονάδα Perl για την ανάγνωση δεδομένων από αρχεία Excel . Η διαδικασία της εγκατάστασης εξαρτάται από τον τύπο του συστήματός σας

Αν έχετε ActiveState Perl ( δηλαδή , Perl για τα Windows . ) : .

Ανοίξτε ένα παράθυρο γραμμής εντολών . Πηγαίνετε στο " bin " υποφάκελο του φακέλου όπου προγράμματος ActiveState Perl σας βρίσκεται . Αν δεν ξέρετε από πού είναι , χρησιμοποιήστε τη λειτουργία αναζήτησης των Windows για να βρείτε " ActiveState » και να κάνει μια σημείωση του « διαδρομή καταλόγου " στο φάκελο ActiveState Perl . Στη συνέχεια, πηγαίνετε στο παράθυρο γραμμής εντολών και πληκτρολογήστε " DIR ", ακολουθούμενο από την εν λόγω διαδρομή καταλόγου και , στη συνέχεια, πατήστε Return . Στη συνέχεια, πληκτρολογήστε " DIR bin " και πιέστε Return .

Τύπος " ppm " και στη συνέχεια πατήστε Return . Κάποιοι κείμενο θα εμφανιστεί και τότε θα είστε σε θέση να πληκτρολογήσετε εντολές και πάλι . Πληκτρολογήστε " εγκατάσταση υπολογιστικού φύλλου :: ParseExcel " και πιέστε Return . Κάποιοι περισσότερο κείμενο θα εμφανιστεί και , στη συνέχεια, η εγκατάσταση θα ολοκληρωθεί

Αν έχετε πρότυπο Perl : .

Ανοίξτε μια γραμμή εντολών ή παράθυρο τερματικού . Σε Mac OS X , το πρόγραμμα ονομάζεται Terminal . Πληκτρολογήστε το ακόλουθο :

perl - MCPAN -e εγκατάσταση υπολογιστικού φύλλου :: ParseExcel

Πατήστε Return . Πολλοί κείμενο θα εμφανιστεί και τότε η εγκατάσταση θα είναι πλήρης . 2

Κάντε το αρχείο του Excel πρόσβαση σε Perl script σας . Δημιουργήστε ένα αντίγραφο του αρχείου Excel με το όνομα " xls_test.xls " για αυτό το σεμινάριο και να το μετακινήσετε στο φάκελο όπου Perl script σας βρίσκεται .
Εικόνων 3

Φορτώστε το αρχείο του Excel σε σας Perl script με αυτόν τον κωδικό :

υπολογιστικού φύλλου χρήσης :: ParseExcel ?

$ μου xlsparser = Spreadsheet :: ParseExcel - > νέο ( ) ?

μου xlsbook $ = $ parser - > parse ( « xsl_test.xls ') ?

$ μου xls = $ xls - > φύλλο εργασίας ( 0 ) ?

τώρα έχουμε ένα αντικείμενο ( " $ xls " ) που κατέχει τα στοιχεία από το πρώτο φύλλο εργασίας του Excel το αρχείο μας . Αν θέλετε να πάρετε δεδομένα από ένα άλλο φύλλο εργασίας , αντικαταστήστε το μηδέν ( " 0 " ) στην τέταρτη γραμμή με τον αριθμό του φύλλου εργασίας σας μείον ένα . Για παράδειγμα , ο αριθμός του πρώτου φύλλου είναι μηδέν (« 0 ») , τον αριθμό του τρίτου φύλλου είναι δύο ( " 2 " ) και ούτω καθεξής . Εάν το Excel αρχείο σας έχει μόνο ένα φύλλο εργασίας , χρησιμοποιήστε τον κώδικα ως έχει.
Η 4

Μάθετε τι στήλες και γραμμές φύλλο σας έχει . Χρησιμοποιήστε αυτόν τον κωδικό :

μου ( $ row_first , $ row_last ) = $ xls - > row_range ( ) ?

Μου ( $ col_first , $ col_last ) = $ xls - > col_range ( ) ?
5

Δημιουργήστε μια μεταβλητή για να αποθηκεύσουμε τα δεδομένα CSV . Χρησιμοποιήστε αυτόν τον κωδικό :

$ μου csv = '' ?
Η 6

Δημιουργήστε τα δεδομένα CSV . Χρησιμοποιήστε αυτόν τον κωδικό για να το κάνει :

για $ γραμμή μου ( $ row_first .. $ row_last ) { # Βήμα μέσα από κάθε σειρά

για $ μου col ( $ col_first .. $ col_last ) { # Βήμα μέσα από κάθε στήλη

$ κελί μου = $ xls - > get_cell ( $ γραμμή , $ col ) ? # Αποκτήστε το τρέχον κελί

, εκτός αν $ κυττάρων?

csv = $ $ κύτταρο - > αδιαμόρφωτη ( ) ? # Αποκτήστε ανεπεξέργαστα δεδομένα του κυττάρου - χωρίς σύνορα χρώματα ή τίποτα σαν αυτή

if ( $ col == $ col_last ) {

$ csv = " \\ n" ? # Κάντε μια νέα γραμμή στο τέλος της σειράς

} else {

$ csv = " , " ? ". Προσθέστε ένα κόμμα ανάμεσα σε κάθε στοιχείο

}

} }

Η 7

Αποθηκεύστε τα δεδομένα σε $ csv σε ένα αρχείο χρησιμοποιώντας λειτουργίες αρχείων - γραφής της Perl . Βεβαιωθείτε ότι όνομα του αρχείου σας τελειώνει σε " . csv " για λόγους σαφήνειας .
Η
εικόνων