Consultation et téléchargement web

Consultation et téléchargement web - Perl - Programmation

Marsh Posté le 21-04-2004 à 15:35:13    

J'ai un fichier xls dont les données sont rangées en 2 colonnes :
chaîne à gauche et entier à droite.
J'utilise le module Spreadsheet::ParseExcel pour lire ce type de fichiers.
Je souhaite stocker mes données dans une table associative avec comme clés  les chaînes de la colonnne de gauche mais ça ne marche pas !
J'ai donc crée une fonction qui prend pour argument le nom du fichier xls et renvoie la table de hash :
 

Code :
  1. sub lirePos
  3.   {
  4.    # Nom du fichier xls
  5.    my $nom_fichier = @_;
  7.    # Création d'une Hashtable pour stocker les positions des gènes
  8.    my %gene_Pos = ();
  10.    my $oExcel = new Spreadsheet::ParseExcel;
  12.    if (defined(my $classeur = $oExcel->Parse($nom_fichier)))   {
  13.    #classeur qui peut être composé de +sieurs feuilles
  14.    my($noLigne, $noCol, $hdlFeuille, $colMin , $hdlCelluleGene, $hdlCellulePos);
  15.  
  16.    #on ne traite que la 1ère feuille:
  17.    $hdlFeuille = $classeur->{Worksheet}[0];
  18.    $colMin = $hdlFeuille->{MinCol};
  20.       for(my $noLigne = $hdlFeuille->{MinRow}+1 ;   defined $hdlFeuille->{MaxRow} && $noLigne <= $hdlFeuille->{MaxRow} ; $noLigne++) {
  21.  
  22.          $hdlCelluleGene = $hdlFeuille->{Cells}[$noLigne][$colMin];
  23.  $hdlCellulePos = $hdlFeuille->{Cells}[$noLigne][$colMin+1];
  24.          if($hdlCelluleGene && $hdlCellulePos)   {
  25.             # Remplissage de la Hashtable
  26.     $gene_Pos{$hdlCelluleGene} = $hdlCellulePos;
  27.          }
  28.          else   {
  29.             print  "Erreur : ligne mal formée !" ;
  30.          }
  31.      
  32.        }# End of for
  33.  
  34.    } # End of if
  36.    return %gene_Pos;
  38.   }


Si quelqu'un a une idée ?  :wahoo:  

Reply

Marsh Posté le 21-04-2004 à 15:35:13   

Reply

Marsh Posté le 21-04-2004 à 15:38:03    

désolé, il y a eu une erreur avec le titre; ça devait être "fichier xls + Hashtable"

Reply

Marsh Posté le 23-04-2004 à 14:53:28    

tu peux éditer le titre :
http://forum.hardware.fr/icones/edit.gif

Reply

Marsh Posté le 24-04-2004 à 22:22:54    

difficile de tester ta sub sans les données mais c'est peu etre cette erreur qui te bloque:
 
"my $nom_fichier = @_; "
 
la tu va recuperer dans my $nom_fichier le nombre d'arguments passés...
 
donc il te faut faire:
my ($nom_fichier) = @_;  
ou:
my $nom_fichier = shift;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed