Parsing de CSV

Bonsoir,

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

Voici le code en gros:

Code:

---

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:

---

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

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ï

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.

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ï