Discussion :

[mashu]

Bonjour,

J'exporte un fichier csv d'un logiciel (avec des données de type "id","name","phone","mail") et je lis ce fichier.

Or, certains utilisateurs saisissent différemment leur infos (mettent des retour chariot qui perturbent mon programme).

Exemple de fichier csv :

"1","toto","05XXXX","toto@mail.com;toto@mail.fr"
"2","titi","06XXX","monadresse@mail.fr
"
"3","tata","01XXX,tata@mail.com
tata@mail.fr"
"4","tutu","04XXXX","toto@mail.com;toto@mail.comr"


J'ai un script qui récupère le nom (colonne 2) de la personne si la ligne contient un email sur FR. Or, pour la ligne 2 c'est pas super propre et pour la ligne 3 ca ne marche pas bien entendu car il y a un "entrée" de saisi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
my $ligne_nom;
 
...
while (my $ligne = <FIC>)
{
  if ($ligne =~/fr/)
  {
     $ligne_nom = (split /"/, $ligne)[1]
     print "$ligne_nom\n";
  }
}

Ici j'obtiens seulement le résultat :
toto
titi
Il manque le résultat tata.

Des idées svp, car je bloque..

Je suis parti sur l'idée de vérfication suivante
Si ligne commence par "chiffre et finit par "
alors j'affiche
Si ligne commence par "chiffre et finit pas par "
alors je stocke ma ligne et je continue jusqu'a trouver une ligne finissant par "

Mais franchement je sais pas si c'est la bonne direction et je galère :-S

[djibril]

Bonjour,

Pour lire correctement (ou créer) un fichier CSV, il faut utiliser un module Perl comme Text::CSV.