|
Entreprises utilisent couramment Excel pour stocker des tables de données. Souvent , ces entreprises vont trouver une utilisation pour que les données qui nécessite le convertir dans un format différent pour d'autres logiciels à utiliser. Mais les fichiers Excel ne sont pas conçus pour être lus par d'autres programmes . Les données qu'ils contiennent doivent être convertis dans un format commun , comme Comma Separated Value (CSV) des fichiers. Pour les personnes avec un grand nombre de fichiers Excel à convertir, le processus habituel est lourd . Donc, la capacité de Perl pour gérer les tâches de traitement de données vient rapidement et facilement en pratique dans ce cas. Choses que vous devez
Perl ou Activestate Perl CPAN
si vous avez Perl
PPM si vous avez Activestate Perl
Show More Instructions
Créer votre fichier CSV
< br > 1 Installez le module " Spreadsheet :: ParseExcel " Perl sur votre système. Il s'agit du module Perl standard pour lire les données à partir de fichiers Excel. Le processus d'installation dépend de votre type de système
Si vous avez Activestate Perl (c.-à Perl pour Windows. ) : .
Ouvrez une fenêtre d'invite de commande . Accédez au dossier " bin" du dossier où se trouve votre programme Perl ActiveState . Si vous ne savez pas où il est, utiliser la fonction de recherche de Windows pour trouver " Activestate " et de faire une note du " chemin d'accès " au dossier Activestate Perl. Ensuite, allez à la fenêtre d'invite de commande et tapez " DIR " suivie par ce chemin de répertoire, puis appuyez sur Entrée . Puis tapez " bin DIR " et appuyez sur Entrée .
Type « ppm », puis appuyez sur Entrée. Du texte apparaît et alors vous serez capable de taper à nouveau les commandes . Tapez " install Spreadsheet :: ParseExcel " et appuyez sur Entrée . Un peu plus de texte apparaît , puis l'installation sera terminée
Si vous avez Perl standard : .
Ouvrez une fenêtre de commande ou d'un terminal . Dans Mac OS X , le programme est appelé Terminal. Tapez la commande suivante :
perl- e - MCPAN installation Spreadsheet :: ParseExcel
Appuyez sur Entrée. Beaucoup de texte apparaît , puis l'installation sera terminée .
2 Faites votre fichier Excel accessible à votre script Perl. Faites une copie du fichier Excel avec le nom " xls_test.xls " pour ce tutoriel et le déplacer dans le dossier où votre script Perl se trouve.
3 charger votre fichier Excel dans votre script Perl avec ce code:
utilisation Spreadsheet :: ParseExcel ;
my $ xlsparser = Spreadsheet :: ParseExcel -> new ();
my $ xlsbook = $ parser- > parse ( ' xsl_test.xls ');
mon xls $ = xls -> feuille de calcul (0);
maintenant, nous avons un objet ("$ xls " ) qui contient les données de la première feuille de calcul de notre fichier Excel. Si vous souhaitez obtenir des données d'une feuille de calcul différente , remplacez le zéro ( "0") à la quatrième ligne avec le numéro de votre feuille de calcul , moins un. Par exemple , le numéro de la première feuille de calcul est égale à zéro ( "0" ) , le numéro de la troisième feuille de calcul est égal à deux ( "2" ) et ainsi de suite . Si votre fichier Excel ne possède qu'une seule feuille de calcul, utiliser le code tel quel .
4 Découvrez ce que les colonnes et les lignes de votre feuille de calcul a . Utilisez ce code :
my ($ row_first , $ row_last ) = $ xls -> row_range ();
my ($ col_first , $ col_last ) = $ xls -> col_range ( ) ;
5 Créer une variable pour stocker les données CSV . Utilisez ce code :
my $ csv ='';
6 Créer les données CSV . Utilisez ce code pour le faire :
pour mon $ row ($ row_first .. $ row_last ) {# Étape à travers chaque ligne
pour ma $ col ($ col_first .. $ col_last ) { # Etape par chaque colonne
ma cellule $ = $ xls -> get_cell ( $ row , $ col ) ; # Obtenez le
cellulaire actuel prochaine à moins que $ cellule;
$ csv = $ cell- > non formaté (); . # Obtenir les données brutes de la cellule - pas de couleurs frontalières ou quelque chose comme ça
if ( $ col == $ col_last ) {
$ csv = " \\ n"; . . # Faire une nouvelle ligne à la fin de la ligne
} else {
$ csv = "," ; " ajouter une virgule entre chaque point
}
} }
7 sauvegarder les données en $ csv dans un fichier en utilisant les fonctions de fichiers d'écriture de Perl . Assurez-vous votre nom de fichier se termine par « . csv » pour plus de clarté .
|
