Discussion :

[Riko1]

Bonjour,

J'aimerai savoir comment mettre en page un fichier CSV contenant des données brutes en Perl. Je m'explique : j'ai alimenté un fichier CSV avec le resultat d'un script dos et le résultat est que le csv n'est pas en forme tout est mis dans une seule colonne. J'ai besoin de séparer le contenu pour le mettre dans différentes colonnes.

Connaissez-vous des scripts deja tout fait ou alors des fonctions répondant bien à tout car mes recherches ont été vaines.

Merci d'avance

[Arioch]

Bonjour,

ton fichier csv contient déjà un type de séparateur je présume ?

En admettant que le séparateur soit le point-virgule, le mieux pour toi serait :

- de lire ton fichier csv
- créer un fichier vide qui recevra les données lues du fichier csv avec le nouveau séparateur
- pour chaque ligne lue du fichier csv, tu remplaces le séparateur par une tabulation
- tu écrit la ligne ainsi modifiée dans le second fichier créé par tes soins

Et voilà

Un p'tit bout de code si ça peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$fic1 = "fichierCSV.csv";         # ton fichier d'origine
$fic2 = "newCSV.csv";
 
open(IN, $fic1) or die("pb pour lire $fic1 : $!\n");
open(OUT, ">$fic2") or die("pb pour créer $fic2 : $!\n");
 
while(<IN>)
{
    s/;/\t/g;
    print OUT $_;
}
close(IN);
close(OUT);