bon, je colle tout, ça vient sans doute de ma substitution d'extension:
Code :
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"; } #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
processing ./etcooh/etcooh_bp86tzvp_dblcav.coin Error to create the file "./etcooh/etcooh_bp86tzvp_dblcav_cst.inp": No such file or directory at ./writeCOINInput.pl line 31.
|
la ligne 31 c'est le 'open'
Message édité par uriel le 11-10-2008 à 18:32:59
---------------
IVG en france