Discussion :

[tom06440]

Bonjour

Je débute en perl et je rencontre un soucis avec une comparaison.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
while(<FILE>)
        {
                if( $_ != $mavar )
                {
                        print $_."\n";
                }
        }

Pour faire simple, je lis un fichier. puis je compare le contenu de la ligne avec une variable.
En réalité, mon code fait que toutes les lignes sont identiques lors de la comparaison ... alors que ce n'est pas le cas (si j'affiche $_ avant la comparaison j'ai bien chaque ligne qui apparait ...)
Qu'ai-je fait comme bétise ? Si quelqu'un pouvait éclairer ma lanterne ...

Merci d'avance

[nibroc]

Bonjour,
l'opérateur != compare des nombres, donc $_ et $mavar sont convertis en nombres, si ces variables ne contiennent pas le début de l'écriture d'un nombre, le résultat de la conversion est zéro. Cela explique le résultat : 0 n'est pas différent de 0.
Pour comparer des chaînes de caractères utilise eq ou ne :

Code :

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

1
2
3
4
if( $_ ne $mavar )
                {
                        print $_."\n";
                }

Ça devrait marcher.
Nibroc.

Bonjour

Je débute en perl et je rencontre un soucis avec une comparaison.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
while(<FILE>)
        {
                if( $_ != $mavar )
                {
                        print $_."\n";
                }
        }

Pour faire simple, je lis un fichier. puis je compare le contenu de la ligne avec une variable.
En réalité, mon code fait que toutes les lignes sont identiques lors de la comparaison ... alors que ce n'est pas le cas (si j'affiche $_ avant la comparaison j'ai bien chaque ligne qui apparait ...)
Qu'ai-je fait comme bétise ? Si quelqu'un pouvait éclairer ma lanterne ...

Merci d'avance

[Philou67430]

Et pour éviter de passer à coté de ce genre d'effets de bord, utilise :

Code :

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

1
2
use strict;
use warnings;

en début de TOUT script. Ainsi, perl t'informera que tu as tenté d'utiliser un opérateur numérique avec des opérandes non numériques (ce qui est légal, puisqu'il y a conversion, mais rarement approprié).