Discussion :

[dauphin34000]

Bonjour à toutes et à tous,

Je débute en perl et je n'arrive pas à trouver la solution pour effectuer un travail. Il est possible aussi que ce que je cherche à faire ne soit pas "facile" voir "impossible" .

Code :

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

1
2
3
4
5
6
7
8
 
Mon fichier analyse.csv se présente sous cette forme :
 
XHGOURSOR;9 espaces   ;XLTVXZOZI;21 espacesT;20080701 20espaces
 
Peut-on créer un nouveau csv par exemple analyse2.csv avec un traitement perl pour obtenir :
 
"7H1G7E22ZI";"4KGCXGMNFU";"O";"2008-08-06" plus d'espaces

Merci pour votre aide.

[Invité]

Utilises les expressions régulières.

En pas propre et pas optimisé:

Code :

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

1
2
$p =~ s/\s*//g;
$p =~ s/;*(.*);*/"$1"/ig;

Je pense que quelqu'un va pouvoir réduire ça en une seule regex.....

[Jedai]

Je pense que quelqu'un va pouvoir réduire ça en une seule regex.....

Je ne ferais pas ça sans avoir de plus amples détails sur le problème :

• Est-ce que tous les champs du csv sont formatés aussi simplement (sans "") ?
• Est-ce que les espaces à l'intérieur des champs doivent être supprimés ?
• Doit-on supprimer les espaces au début et à la fin d'un champs (ou seulement au début) ?
• Que fait-on quand un champ ne contient que des espaces ? On le supprime totalement ou on laisse le champ vide ;""; ?

Selon les réponses à ces questions, la réponse peut varier d'une regex d'une ligne à un script de quelques lignes utilisant un module comme Text::CSV_XS.

--
Jedaï