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

[Philippe Delavalade]

Le mercredi 23 mars à 18:40, Téletchéa Stéphane a écrit :
> 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 ...

Oui, c'était exprès dans ce cas-là qui ne devait, ne pouvait pas poser de
problèmes...

Tout venait en fait du $/ qui, au départ, était dans un bloc et donc, je
croyais qu'il n'influerait pas sur la suite. Dans l'exemple simplifié, ben,
j'ai été léger mais ça a été révélateur....

Merci encore.

-- 
Ph. Delavalade