Bonjour

Alors voilà j'ai un script cgi dans lequel j'utilise le module bioperl (Bio::SeqIO), le seul problème c'est que le script ne s'exécute pas complètement. Il s'arrête au moment d'ouvrir le fichier fasta, alors que sans passer par CGI, ce script tourne très bien, j'ai bien installé le module bioperl et celui de cgi...
Je ne comprends pas d'où vient le problème...
voici le code :

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
26
27
#!"C:\Perl\bin\perl.exe"
 
use warnings;
use CGI;
use strict;
use Bio::SeqIO;
 
my $cgi = new CGI;
print "Content-type: text/html\n\n";
print "début ok\n";
 
my $file = $cgi->param("fichier");
print "récup ok\n";
 
my $in  = Bio::SeqIO->new(-file => $file, '-format' => 'Fasta');
print "module bio ok \n";
 
my $c = 0;
 
while ( my $seq = $in->next_seq()){
 
	$c++;
}
 
print "Bonjour vous avez <b>".$c."</b> séquences dans le fichier".$file;
 
exit 0;
dans mon naviguateur il s'arrete simplement et affiche "début ok // récup ok"..

Merci d'avance à qui pourra m'aider à sortir de cette impasse !