[Perl] Que faire contre ce « warning » ?

[Philippe Delavalade]

Le samedi 14 janvier à 11:12, Hugues a écrit :
> Bonjour
>
> effectivement si tu ajoutes
>
> while( $src && ($l = <$src>) && ($l !~ m/,1,/) ) {next;}
>
> tu n'as plus le warning
> mais aussi si tu supprimes
>
> ($l !~ m/,1,/)
>  et tu le met dans le while
>
> il doit commencer a tester la deuxièmement condition avant la première ?

C'est certainement ça l'idée car si je définis au départ
my $l=''

(sans cela j'ai un autre warning tout ce qu'il y a de normal comme quoi $l
est uninitialized) puis que j'inverse les condition dans le while, plus de
warning...

Merci beaucoup et bon week-end.

--
Ph. Delavalade