Discussion :

[Popop56]

Bonsoir,

Je cherche à parser un CSV, seulement j'ai un petit problème.

Voici le code en gros:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
use Tie::CSV_File;
my $fichier = "fichier.csv";
 
tie my @csvdata, 'Tie::CSV_File', 'flux.csv', PIPE_SEPARATED;
print "$csvdata[0][1]";
untie @csvdata;

Et mon csv:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Charlotte French Cakes|1179 Glenhuntly Rd|1|Y|John
Glenhuntly Pharmacy|1181 Glenhuntly Rd|1|Y|Paul
Dick Wicks Magnetic Pain Relief|1183-1185 Glenhuntly Rd|1|Y|George
Gilmour's Shoes|1187 Glenhuntly Rd|1|Y|Ringo

Bon la j'ai une info qui s'affiche, parfait.

Seulement si je j'augmente la taille du csv (en copiant plusieurs fois les infos) j'obtiens une erreur du style: "Use of uninitialized value in string at ./parse.pl line 4, <$fh> line 1."

Savez vous d'ou cela peut venir ?
Et comment faire pour avoir des erreurs plus explicitent afin de voir le problème ?

Merci d'avance

[Jedai]

Visiblement certaines de tes lignes sont soit vides, soit n'ont pas un nombre correct de colonnes.
Apparemment la première ligne de ton fichier est dans ce cas, ou du moins tu demandes une colonne qui n'existe pas dans cette ligne.

--
Jedaï

[Popop56]

Il me reste à savoir pourquoi une ligne est soit disant vide ... j'ai beau regarder dans le csv il n'y a rien de particulier.

[Jedai]

Et bien dans ce cas transmet nous le script et le CSV en fichiers attachés (de sorte qu'il n'y ait pas d'erreur de copier-coller), nous te dirons ce qu'il en est.

--
Jedaï