Le fichier d'entrée et sortie ont le même nom, seule l'extension .BLAST se change en .txt.

Je n'arrive pas à supprimer mon fichier de sortie.txt alors que
- keys(%hits) est bien égal à 0
- le chemin donné à la fonction unlink semble correct


Merci beaucoup pour votre aide,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
	open(FILE, $dir.$blast.'/'.$in_file);
 
	# création du fichier de sortie, on change l'extension du fichier d'entrée
	$in_file =~ s/\.BLAST$/\.txt/; 
	my $out_file = FileHandle->new('>'.$dir.$blast.'/'.$in_file);
 
	while (my $line = <FILE>){ 
		... remplissage de %hits
	}
	close(FILE);
 
	foreach my $desc (sort keys %hits){
		print $out_file $hits{$desc}."\t".$desc ."\n";
	}
	close($out_file);
 
	# on supprime les fichiers vides
	# $in_file est le fichier de sortie car il correspond au nom du fichier
	# d'entrée auquel on a modifié l'extension
	if(keys(%hits) == 0){		
		unlink("$dir.$blast.'/'.$in_file");
		print $dir.$blast.'/'.$in_file."\n";
		# chemin correct
		# P:/Theorie/PCR_Bact_Hybridation/amorces_neutres/BLAST_test/ttgtatcaccaacgtaga.txt
	}