Concatenation pour file

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

Citation:

---

Envoyé par cricri77200

$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:

---

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.

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

Code:

---

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';

---

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