Discussion :

[super_dz]

bonjour tlm

en fait je suis pas super en Perl, dans ce cas je me retrouve au site pour chercher de l'aide :

voilà, j'ai un script Perl qui genère des résultats dans un fichier avec la commande :

$ ./mon_script.pl > mon fichier_resultat

ma question et comment dans la source du script on donne le nom de fichier résultat sans le preciser dans la commande dessus par example :

$ ./mon_script.pl
# aprés exécution je trouve le fichier résultat dans le même répertoire et le résultat est inclu ?

voici l'instruction print qui donne les résultats :

Code :

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

1
2
3

print "SDPHash{$MarkOUTLine[0]},,$MarkOUTLine[0],$MarkOUTLine[1],$MarkOUTLine[3],$MarkOUTLine[5]".",1001,$num_sdp,,,,,CLEAR,,,,,1\n";

[Arioch]

Bonsoir.

En admettant que tu veuilles que ton fichier de sortie se trouve au même endroit que ton script, tu peux procéder comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
my $FicResult = "resultat.txt";
 
open(SORTIE, ">$FicResult") or die("Erreur lors de la création du fichier $FicResult : $!\n");
 
... ... ...
 
print SORTIE "SDPHash{$MarkOUTLine[0]},,$MarkOUTLine[0],$MarkOUTLine[1],$MarkOUTLine[3],$MarkOUTLine[5]".",1001,$num_sdp,,,,,CLEAR,,,,,1\n";

[super_dz]

OK,

en réalit, j'ai deux print a faire,

le premier avant la boucle, pour créer un entête sur le fichier
le deuxième insère ligne par ligne dans le fichier,

donc je pense que je dois mettre open(SORTIE, ">>$FicResult")
et non pas open(SORTIE, ">$FicResult")

c'est ca ?

[Arioch]

Que tu écrives à plusieurs moments différents dans ton fichier de sortie, tu peux l'ouvrir une fois au début de ton script et écrire dedans ensuite.

Vu que tu parles d'ouvrir ton fichier en mode mise à jour (>>), je suppose que tu comptes l'ouvrir à chaque fois que tu auras besoin d'y écrire ?

Pas la peine, ouvre le juste une fois