Discussion :

[perlaud]

bonjour,
j'aimerai demander à l'utilisateur le chemin du fichier dans lequel il souhaite afficher les résultats.

voici ce que j'ai codé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w 
use strict;
 
my $fichier_sortie;
 
print "Saisissez votre fichier de sortie : ";
chomp ($fichier_sortie = <STDIN>);
open (F, "$fichier_sortie") || die "Probleme d'ouverture: $!";
print F "ecriture dans le fichier\n";
print "ecriture dans le terminal\n";
close(F);

ecriture dans le terminal

apparaît bien dans le terminal, mais rien n'apparait dans le fichier de sortie je ne pense pas m'être trompée dans l'adresse de ce fichier, puisqu'il marche bien lorsque l'utilisateur donne un fichier d'entrée.

merci

[fsapet]

Code :

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

 open (FILE, ">>$file_name") || die "can't open file $file_name : $!\n";

>> te permet d'ouvrir le fichier en mode ecriture, et tu te positionnes en fin de fichier

> tu ouvres en ecriture mais tu te positionnes en debut de fichier (donc tu ecrases ce qu'il y avait dans le fichier si celui ci n'etait pas vide)

[perlaud]

ah oui, j'avais encore oublié ces fameux chevrons!

merci bcp et quelle rapidité!