petit probleme, j'explique ce que je cherche à faire:
-parser les sous repertoire de là où je lance mon script perl et trouver les fichier .coin
-pour chaque fichier .coin je crée un fichier .inp qui contient le nom du fichier .coin dedans et autres info
 
ça parait simple et pour le moment ça fonctionne.... sauf que tous les fichiers .inp sont crées dans le repertoire d'où je lance le script, pas dans les repertoires où sont les .coin et ça c'est pas ce que je veux.
 
mon code fait ça:

sub findCoinFile {
   if ( (/\.coin$/) ){
       push(@coinfile,"$File::Find::name" );
  }
}

 
donc j'ai bien le nom entier avec path et tout, mais au moment de créer mon nouveau fichier .inp je merde sûrement parce que si j'utilise le $coinfile (dans un foreach) avec une substitution pour remplacer l'extension ça ne fonctionne pas, ça me crée juste tous les .inp dans le repertoire courant
 

open (OUT, ">$coinInput" ) || die "Error to create the file \"$coinInput\": $!";

 
des idées?
 

Zarb. Et dans $coinInput y a bien un chemin de type foo/bar/file.inp ?

oui, à partir du repertoire courant où je lance le script

bon, je colle tout, ça vient sans doute de ma substitution d'extension:

foreach (@coinfile) {
my $coin_file_name=$_;
 
print "processing ",$_,"\n";
 
unless ($coin_file_name) {
    print STDERR "Please enter the name of a .coin file.\n";
    print STDERR "Aborting.\n";
    exit 1; 
}
#recover file name
@molecule=split(/\//,$coin_file_name);
$name=$molecule[-1];
$nameInput=$_;
$nameInput=~ s/.coin/_cst.inp/;
 
my $coinInput = $nameInput;
open (OUT, $nameInput) || die "Error to create the file \"$nameInput\": $!";

j'ai aussi besoin du nom du fichier seul, d'où le bidouillage avec @molecule, mais quand je lance le script maintenant, j'ai

la ligne 31 c'est le 'open'

ton . à la ligne 15 n'est pas échappé, je doute que ça vienne de là mais on sait jamais.

j'avais pas conscience qu'il fallait echappé le .
 j'ai ajouté un \ avant, ça change rien

 
te manque pas un ">" ( ou "+>" ) devant le nom du fichier ? Sans rien ça défaulte à "<" qui veut dire lecture, donc qui nécéssite que le fichier soit créé.

open (OUT, ">$nameInput" )

 
 c'etait ça
 
je l'ai sur d'autres fichiers en plus, oubli stupide. merci

Tu l'as dans le premier post du sujet surtout.

 
 alors à l'origine ça venait de ma substitution, et ensuite de ça