Perl

Petit problème avec un hash, des tableaux et des références

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Petit problème avec un hash, des tableaux et des références

yellu

Bonjour,

J'ai un soucis sur ce morceau de perl issu de mon programme :

Code :

open(my $fh, "<", $this->get('file_datas')) or die("Error: can't open ".$this->get('file_datas')."\n" );
my $row = $csv->getline($fh);
my @columns = @{$row};
my $i = 0;
while($row = $csv->getline($fh)) {
my %line;
my $j = 0;
foreach(@{$row}) {
$line{$columns[$j]} = $_;
$j++;
}
# Et la je fais qq chose avec %lines
}

Pour simplifier ce code j'aimerai soit savoir s'il existe une methode de l'objet CSV qui renvoi directement un tableau Hash avec les clefs issu de la premières lignes du CSV. (J'en doute).
Soit savoir si on peut comme en PHP construire un tableau associatif a partir de deux tableaux (un contenant les clefsn l'autre les valeurs), comme je fais là mais en une seule fonction peut-être déjà existante.

Pour l'instant j'ai essayé pour soulager cette portion en déportant la création de ce hash dans une fonction dont voici la tête :

Code :

sub get_csv_line {
my ($this, @columns, $row) = @_;
my %line;
my $i = 0;
foreach(@{$row}) {
$line{$columns[$i]} = $_;
$i++;
}
return %line;
}

Et dans cette fonction ce que je ne comprend c'est que si je fais un foreach sur @columns, je trouve dans la dernière case la référence vers le tableau "row".

Auriez vous quelques conseils ?

Merci d'avance?
Yellu

Message édité par yellu le 09-12-2008 à 12:28:41

Publicité

gilou

Modérateur
Modzilla

Citation :

my ($this, @columns, $row) = @_;

Ca ne peut pas marcher, ça.
ton second element @columns tout bouffer de @_ (sauf sa premiere valeur, assignée a $this), et $row sera toujours vide.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

gilou

Modérateur
Modzilla

Citation :

Pour simplifier ce code j'aimerai soit savoir s'il existe une methode de l'objet CSV qui renvoi directement un tableau Hash avec les clefs issu de la premières lignes du CSV. (J'en doute).

Il me semble qu'il suffit de lire la doc de Text::CSV_XS pour trouver la réponse (si c'est bien ce module que tu utilises, cf un de tes précédents posts):
Tu fais pour la premiere ligne (je coupe colle le code a partir de la doc)
$csv->column_names ($csv->getline ($io));
puis pour chacune des lignes ensuite
$hr = $csv->getline_hr ($io);
et $hr est une reference a un hash, par exemple si toto est un nom de champ en premiere ligne, tu accedes a la valeur correspondante dans la ligne par $hr->{toto}

A+,

Message édité par gilou le 09-12-2008 à 15:03:49

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

yellu

Je comprend maintenant pourquoi $row était vide, quand à la doc en effet, je l'ai pourtant lu mais dans la précipitation j'ai sauté les choses importantes

Merci beaucoup Gilou, encore une fois

FORUM HardWare.fr

Programmation

Perl

Petit problème avec un hash, des tableaux et des références

Sujets relatifs
Probleme MySQL	Problème alignement bloc CSS [terminé]
Problème d'adition avec js	probleme grammaire linéaire en C
Probleme avec pages html et lien sous IE 7	Problème de réels en C
Problème affichage applications java	[Résolu] Problème avec propriété float
Problème de tableau	Problème code javascript
Plus de sujets relatifs à : Petit problème avec un hash, des tableaux et des références

Page générée en 0.064 secondes