Discussion :

[cricri77200]

Bonjour,

Je voudrai donner un nom a un fichier ( avec l'extension .txt) que l'utilisateur peut lui même définir.

Voici mon code :
print "Entrez le nom du fichier :";
$filename = <STDIN>;

$file = 'd:/Documents And Settings/Bazard/Bureau/'.$filename.'.txt';

Mais cela ne fonctionne pas le fichier .txtn ne se creée pas

Cordialement

[Jasmine80]

$file = 'd:/Documents And Settings/Bazard/Bureau/'.$filename.'.txt';

Mais cela ne fonctionne pas le fichier .txtn ne se creée pas

Tu peux utiliser le module FileHandle

Code :

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

1
2
3
use FileHandle;
 
my $fh = FileHandle->new('>d:/Documents And Settings/Bazard/Bureau/'.$filename.'.txt');

... je ne suis pas certaine que les espaces dans les noms de répertoires soient acceptés.

[djibril]

C'est pas ça le souci, tu dois faire un chomp.

Code :

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

1
2
3
4
5
print "Entrez le nom du fichier : ";
my $filename = <STDIN>;
chomp $filename;
 
my $file = 'd:/Documents And Settings/Bazard/Bureau/'.$filename.'.txt';

[cricri77200]

Tout dabord merci de votre réponse.

Mon fichier .txt ne se crée pas...
Avec cette commande :
$file = 'd:/Documents And Settings/bazard/Bureau/test.txt';
Mon fichier se crée bien sur mon bureau mais je ne peux pas nommer mon propre fichier grace au <STDIN> .
Avez vous d'autre suggestion?

Cordialement