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