Discussion :

[skyangel20]

Salut à tous,

voilà mon problème :
j'ai un fichier qui contient des lignes de cette sorte :
"jjj","iii","","","ppp"

je voudrais pouvoir accéder aux champs vides 3 et ' de chaque ligne et y écrire qlq chose

quelqu'un pourrait-il m'aider...

Merci d'avance

[Gad29]

Avec l'aide d'expressions réguliére tu pourrais remplacer le 3eme champ et remplacer ton anciéne ligne pour une nouvelle avec un 3eme champ remplit selon ta volontée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
$file = 'nom_fichier'; #Nom du fichier lecture 
$fileout = '>nom_fichier';#Nom du fichier d'écriture (le nouveau)
 
open(FICH, $file) or die "je ne peux ouvrir $file : $!\n"; #Ouverture du fichier de lecture
open(FICHOUT,$fileout) or die "je ne peux ouvrir $fileout : $!\n"; #Ouverture du fichier d'écriture
 
while($lines = <FICH>) #Boucle parcourant ton fichier
{
$newligne=$ligne;
$champ3="" #A toi de mettre la valeur souhaitée
$newligne=~s/".+",".+",".+",".+",".+"/".+",".+","$champ3",".+",".+"/ # Remplace le 3eme champ par la valeur voulue
 
print(FICHOUT "$newligne");#Ecriture dans le nouveau fichier de la ligne modifié
}

Aprés je ne sait pas si la virgule ( , ) doit être protégée dans une expression régulière si c'est le cas remplace chaque ( , ) par ( \, ) dans l'expression régulière

j'éspére t'avoir un peu aidé hésite a demander si mon post te parait pas clair

[skyangel20]

Merci bp

ce que je ne comprend pas c'est cette ligne en fait :

Code :

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

1
2
 
$newligne=~s/".+",".+",".+",".+",".+"/".+",".+","$champ3",".+",".+"/ # Remplace le 3eme champ par la valeur voulue

comment se fait le remplacement???

Merci beaucoup, beaucoup

[Jedai]

Je te conseille très fortement d'utiliser un module pour parser ton CSV. Parser le CSV avec des regexs est délicat, et un débutant produira toujours des regexs fragiles, comme celle fournie par Gad29. Text::CSV_XS est l'un des modules les plus matures dans le domaine.

Ensuite, ta question implique que tu veux modifier le fichier sous-jacent, ce qui n'est pas évident. Tu peux essayer d'utiliser Tie::CSV_File par exemple, ou écrire toi-même une petite solution basée sur Tie::File et un module Parser/Writer de CSV.

--
Jedaï