bonsoir,
 
 je vous explique mon probleme en perl. à l'aide d'opendir et de readdir je lis les noms des fichier d'un repertoir que je stocke successivement  dans $fichier. mais impossible de me servir de $fichier pour donner un nom à un fichier créer qui est en lien avec celui ouvert.comment faire
 
#!/usr/bin/perl -w
 
 
opendir (REP,"textebase" );
while ($fichier=readdir(REP) )  
{print $fichier;open (descripteur1,">$fichier.txt" );print descripteur1 "aaa"}
closedir(REP);  
 

Au minimum, il manque un close sur le fichier ouvert.
#!/usr/bin/perl -w
 
 
opendir (REP,"textebase" );
while ($fichier=readdir(REP) )  
{print $fichier;open (descripteur1,">$fichier.txt" );print descripteur1 "aaa"; close descripteur1;}
closedir(REP);  

Tu veux faire quoi exactement? remplacer le contenu de chaque fichier du répertoire par "aaa"?
A+,

Bon, sinon, il faudrait peut être pas écrire du perl antédiluvien avec des variables globales:
 

#!/usr/bin/perl -w
use strict;
use warnings;
use autodie qw(open close);   # open/close succeed or die
 
my $dirname = "textebase";
opendir my $dirhandle, $dirname;
foreach my $filename (readdir($dirhandle)) {
  if (-f $filename) {  # readdir retourne aussi les répertoires, ainsi que . et .. ce que tu veux sans doute pas
    print $filename, "\n";  # faut au moins séparer les noms par un blanc ou une ligne sinon c'est illisible
    open my $filehandle, '>', $filename;
    print $filehandle "aaa";
    close $filehandle;
  }
}
closedir $dirhandle;

Bon, ça fait pas plus que ton code initial, aux vérifications près, mais c'est plus propre et lisible.
Quand tu auras clairement expliqué ce que tu veux faire, on pourra progresser.
A+,

pardon pour le retard
je veux que le nom de mes fichiers qui étaient dans le premier répertoire me serve à coder partiellement le nom de mes fichiers que je vais creer.
je m'explique je pars par exemple dans REP j'ai un fichier zidane et un fichier platini et je veux avoir après le programme les deux fichiers zidane2011 et platini2011. le preobleme est que j'essaye de faire ça avec le programme mes nouveaux fichiers se nomment . et ..

C'est parce que tu ne changes pas le nom de ton fichier que tu écris.

#!/usr/bin/perl -w
use strict;
use warnings;
use autodie qw(open close);   # open/close succeed or die
 
my $dirname = "textebase";
opendir my $dirhandle, $dirname;
foreach my $filename (readdir($dirhandle)) {
  if (-f $filename) { 
    print $filename, "\n";  
    open my $filehandle, '>', $filename."aaa"; #ici, on ouvre le fichier dont le nom est celui initial plus aaa
    # et ici tu fais ce que tu veux avec ce nouveau fichier créé
    # si tu veux copier, il faut 
    # 1) ouvrir en lecture $filename
    # 2) lire ligne à ligne le fichier (boucle)
    # 3) écrire la ligne dans le fichier créé
    # 4) fermer le fichier en lecture
    close $filehandle;
    # Mais tout ça se fait plus facilement avec un module, File::Copy
  }
}
closedir $dirhandle;

 
La manière basique de faire avec File::Copy

#!/usr/bin/perl -w
use strict;
use warnings;
use autodie qw(open close);   # open/close succeed or die
use File::Copy; #module pour la copie de fichier
 
my $dirname = "textebase";
my $extension = "aaa";
opendir my $dirhandle, $dirname;
foreach my $filename (readdir($dirhandle)) {
  if (-f $filename) { 
    print $filename, "\n"; 
    copy($filename, $filename.$extension); 
  }
}
closedir $dirhandle;

 
A+,