Discussion :

[planetiss]

Bonjour,

Je vous explique mon problème

J'ai une ligne dans un fichier sous cette forme:

"EURO\fr150003","FRI06321","0.0.0.0","SIMU",471458,"Job:FPEOJ10 - Created: 13/09/2005 0:53",2,1,"",2005-09-14 09:38:47,2005-09-14 09:40:12,"1,1,2,4,5,7,9,11,13,16,17,1,9,11,14,16,18,19,18,16,15,14,12,13,14,15,8,9,10,11,12,13,14,15,13,14,15,16,17,1,10,12,14,15,16,15,14,15,16,17"

Je voudrais stocker chaque élément dans un tableau en perl, je suppose qu'il faut utiliser une expression régulière mais comme je m'y connais très peu en perl, j'aurais besoin de votre aide.

Chaque élément est séparé par une virgule, alors vous allez me dire, c'est facile fait un split.
Le prob, c'est ce qui ce trouve dans les guillemets, en effet, ce sont des chaînes de caractères qui peuvent également contenir des virgules.
Si quelqu'un à une idée pour obtenir ce résultat au final:

EURO\fr150003
FRI06321
0.0.0.0
SIMU
471458
Job:FPEOJ10 - Created: 13/09/2005 0:53
2
1
2005-09-14 09:38:47
2005-09-14 09:40:12
1,1,2,4,5,7,9,11,13,16,17,1,9,11,14,16,18,19,18,16,15,14,12,13,14,15,8,9,10,11,12,13,14,15,13,14,15,16,17,1,10,12,14,15,16,15,14,15,16,17

Merci

[GLDavid]

Bonjour et bienvenue à toi

Je ne saurais trop te recommander de lire notre FAQ ainsi que mes cours étant donné que tu t'y connais peu en Perl. Tu y trouveras des éléments de réponses assez intéressants.

@++

[planetiss]

Merci pour la doc, elle va me servir

[GLDavid]

De rien, elle est là pour ça

@++

[Woufeil]

Pour répondre à ta question pas besoin d'un split ! Il suffit d'évaluer ta ligne en contexte de liste puis de l'affecter à un tableau. Chaque élément pris entre deux virgule sera considéré comme un élément du tableau.
Un petit conseil, utilise plutôt des guillemets simple que double pour ce genre de chose, ça pourrait t'éviter des suprises comme par exemple pour cette ligne : EURO\fr150003.
Ensuite, tu as oublié de mettre entre guillemet 2005-09-14 09:38:47 et 2005-09-14 09:40:12 : ce ne sont pas que des valeur numériques, il faut les évaluer en contexte de chaîne.
En résumé, voici un code qui marche (avec affichage intégré )

Code :

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

1
2
3
4
5
my @tab = ('EURO\fr150003','FRI06321','0.0.0.0','SIMU',471458,'Job:FPEOJ10 - Created: 13/09/2005 0:53',2,1,"",'2005-09-14 09:38:47','2005-09-14 09:40:12','1,1,2,4,5,7,9,11,13,16,17,1,9,11,14,16,18,19,18,16,15,14,12,13,14,15,8,9,10,11,12,13,14,15,13,14,15,16,17,1,10,12,14,15,16,15,14,15,16,17' );
foreach my $i (@tab)
{
	print "$i\n";
}

Au piez si ta ligne de base contient des guillements double tu peux faire une regex qui te remplace les guillements double par des simples :

Code :

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

$v =~ s/"/'/g

Allez, bon apprentisage de Perl !

[Jedai]

Et surtout utilises un module pour faire ça : un format CSV peut-être assez difficile à parser, avec beaucoup de cas tordus. On peut le faire avec des regexs, mais on risque souvent d'oublier quelque chose.
Alors hormis si tu veux faire de l'exercice avec les regex, utilises quelque chose comme ce module.

--
Jedaï