Discussion :

[Riko1]

Bonjour à tous,

Je ne suis pas vraiment développeur et dans ma mission je dois écrire un script en Perl qui permet de récupérer le flux d'une commande dos (par exemple 'dir') et de le convertir en .CSV.

En gros faire un équivalent de c:\dir >fichier.csv mais en Perl.

Existe-t-il des fonctions qui permettent de le faire facilement ne connaissant pas du tout le Perl et n'ayant pas vraiment le temps pour apprendre

Merci de votre aide.

Cordialement.

[Riko1]

C'est bon j'ai trouvé comment faire pour alimenter un fichier. Voici le code pour ceux qui trouveraient ca utile

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
16
17
#!/usr/bin/perl 
 
my $result = system ("fonction à exécuter > Stat.txt");
 
open FICHIER,">Stat.csv" or die "Le fichier n'existe pas !";
 
open FICHIERTEMP,"<Stat.txt" or die "Le fichier n'existe pas!"; 
 
while(<FICHIERTEMP>)
 
{ printf FICHIER $_; 
 
}
 
close FICHIERTEMP;
 
close FICHIER;