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 }
Partager