Discussion :

[Jasmine80]

Use of uninitialized value in concatenation (.) or string at P:\Perl\scripts2\PCR_BA~1\56_PLU~1.PL line 208.

J'aimerais trouver l'erreur mais quand je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        my $retour_fonct = (print $FO ">".$acc."\n".$h_seq{$acc}."\n");  # 208
        $i++;
        if ($retour_fonct != 1){
            print "==> erreur pour $acc\n";
        }

ou même simplement print "==> erreur\n"; aucun message n'est écrit à l'écran.


J'ai également essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $FO ">".$acc."\n".$h_seq{$acc}."\n" or print "==> erreur\n";

mais sans résultat.

merci,

[Jasmine80]

L'erreur venait du fait qu'un des $acc ne se trouvait pas dans %h_seq. Le print s'effectuait donc toujours et mon retour de fonction était donc 1 à chaque fois. J'aurais dû faire un test if(exists $h_seq{$acc}).

Merci,

[CKLN00]

bha alors tu te répond toute seul ? et on sert plus à rien nous ?
bon bha tu as compris l'erreur c'est le principal ^_^

[Jasmine80]

Ma question était stupide, c'était en fait la seule explication possible de mon message d'erreur. Je vais prendre l'habitude de systématiquement faire un if(exists ...). Je n'aurais normalement pas dû avoir ce problème mais j'avais effacé par erreur le dernier caractère d' un acc d'où ce problème de correspondance.