Comment convertir xls en csv sur perl

Créez votre fichier CSV

• Installez le module Perl "Spreadsheet :: ParseExcel" sur votre système. Ceci est le module standard Perl pour lire des données à partir de fichiers Excel. Le processus d`installation dépend de votre type de système.

  Si vous avez ActiveState Perl (à savoir ,. Perl pour Windows):

  Ouvrez une fenêtre d`invite de commandes. Allez à la "poubelle" sous-dossier du dossier dans lequel votre programme ActiveState Perl est situé. Si vous ne savez pas où il est, utiliser la fonction de recherche de Windows pour trouver "ActiveState" et de faire une note de la "chemin du répertoire" dans le dossier ActiveState Perl. Ensuite, allez à votre fenêtre Invite de commandes et tapez "DIR" suivi par ce chemin de répertoire, puis appuyez sur Entrée. Ensuite, tapez "DIR bin" et appuyez sur Entrée.

  Type "ppm" puis appuyez sur Entrée. Une partie du texte apparaît et vous serez capable de taper à nouveau les commandes. Type "installer Spreadsheet :: ParseExcel" et appuyez sur Entrée. Certains plus de texte apparaîtra et l`installation sera terminée.

  Si vous avez Perl standard:

  Ouvrez une invite de commande ou fenêtre de terminal. Sous Mac OS X, le programme est appelé Terminal. Tapez le texte suivant:

  perl -e -MCPAN installer Spreadsheet :: ParseExcel

  Appuyez sur Entrée. Beaucoup de texte apparaît, puis l`installation sera terminée.

• Faites votre fichier Excel accessible à votre script Perl. Faites une copie du fichier Excel avec le nom "xls_test.xls" pour ce tutoriel et déplacez-le dans le dossier où votre script Perl est situé.

• Chargez votre fichier Excel dans votre script Perl avec ce code:

  utiliser Spreadsheet :: ParseExcel;

  
  
  
  
  

  my $ xlsparser = Spreadsheet :: ParseExcel-gt; new ();

  my $ xlsbook = $ parser-gt; parse ( `xsl_test.xls`);

  my $ xls = $ xls-gt; 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 à partir d`une feuille de calcul différente, remplacez le zéro ("0") Dans 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 égal à zéro ("0"), Le numéro de la troisième feuille de calcul est de deux ("2") etc. Si votre fichier Excel ne dispose que d`une feuille de calcul, utilisez le code tel quel.

• Découvrez ce que les colonnes et les lignes de votre feuille de calcul a. Utilisez ce code:

  my ($ row_first, $ row_last) = $ xls-gt; row_range ();

  my ($ col_first, $ col_last) = $ xls-gt; col_range ();

• Créer une variable pour stocker les données CSV. Utilisez ce code:

  my $ csv = ``;

• Créer les données CSV. Utilisez ce code pour le faire:

  pour ma $ row ($ row_first .. $ row_last) {#Step à travers chaque rangée

  pour mon $ col ($ col_first .. $ col_last) {#Step à travers chaque colonne

  my $ cell = $ xls-gt; get_cell ($ row, $ col) - #GET la cellule courante

  prochaine, à moins $ cellule;

  $ Csv = $ cellulaire gt; unformatted () - #GET données brutes de la cellule - pas de couleurs à la frontière ou quelque chose comme ça.

  if ($ col == $ col_last) {

  $ Csv. = " n"- #make Une nouvelle ligne à la fin de la ligne

  } autre {

  $ Csv. = ","- "Ajouter une virgule entre chaque élément

  }

  }

  }

• Sauvegardez les données dans $ csv à un fichier en utilisant les fonctions de fichier d`écriture de Perl. Assurez-vous que votre nom de fichier se termine par ".csv" pour plus de clarté.