[Perl] Erreur avec « exists » à moins que...

[Téletchéa Stéphane]

Le 23/03/2016 10:43, Philippe Delavalade a écrit :
> my $i=0;
> while (defined($t1[$i]) ) {
>    push(@t2,$t1[$i]);
>    (exists $lst{$t2[$#t2]}) || die "$t2[$#t2] introuvable dans $ARGV[0]";
> }

Salut,

Idem que les autres, il manque i++;, mais aussi il faut $ARGV[1] dans la 
deuxième boucle,
sinon tu lis deux fois le même fichier ...

Ce qui m'amène à la question à 100 000 $, tes deux fichiers font bien la 
même taille o_O ?

Bonne soirée,

Stéphane

-- 
Assistant Professor in BioInformatics, UFIP, UMR 6286 CNRS, Team Protein Design In Silico
UFR Sciences et Techniques, 2, rue de la Houssinière, Bât. 25, 44322 Nantes cedex 03, France
Tél : +33 251 125 636 / Fax : +33 251 125 632
http://www.ufip.univ-nantes.fr/ - http://www.steletch.org