IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

[pb de If Oo]


Sujet :

Langage Perl

  1. #1
    Futur Membre du Club
    Inscrit en
    Novembre 2005
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 22
    Points : 7
    Points
    7
    Par défaut [pb de If Oo]
    bonjour , j'ai un test a faire en perl

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    $char = f;
    if ($char == 'f')
    {
        print "tatata ....";
    }
     
    if ($char == 'r')
    {
        print "tototo ....";
    }
    et mon probleme est que bien que mon $char = f il rentre dans les deux conditions ...

    retour

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    tatata ....
    tototo ....
    je me demandais si il n y avais pas une fonction du type strcomp comme
    en c pour tester 2 chaines de caracteres .. mais j'ai pas trouver : |

    quelqu'un a une idee ?

  2. #2
    Expert éminent
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2003
    Messages
    6 245
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2003
    Messages : 6 245
    Points : 8 586
    Points
    8 586
    Par défaut
    En Perl, les tests pour les chaînes de caractères et pour les nombres sont différents, ainsi tu devrais utiliser 'eq' ici :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    $char = 'f';
    if ($char eq 'f')
    {
        print "tatata ....";
    }
     
    if ($char eq 'r')
    {
        print "tototo ....";
    }
    (je suppose que le "$char = f;" était une faute de frappe... Tu mets bien "use strict;" au début de ton script, n'est-ce pas ?)

    --
    Jedaï

  3. #3
    Futur Membre du Club
    Inscrit en
    Novembre 2005
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 22
    Points : 7
    Points
    7
    Par défaut
    non ce n'etais pas une faute de frappe

    mais voila j'ai remplace == par "eq" et ca marche niquel

    merci merci et bonne année ^^

  4. #4
    Expert éminent
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2003
    Messages
    6 245
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2003
    Messages : 6 245
    Points : 8 586
    Points
    8 586
    Par défaut
    Si ce n'était pas une faute de frappe, c'était une faute tout cours, et si Perl ne te l'a pas indiqué, c'est que tu n'utilises pas "use strict;", ce qui est une très mauvaise idée....

    --
    Jedaï

  5. #5
    Futur Membre du Club
    Inscrit en
    Novembre 2005
    Messages
    22
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 22
    Points : 7
    Points
    7
    Par défaut
    si si j'utilise use strict

    mais je suis sur un WIN srv 2003 (taff oblige)

    et le debug c pas ca je trouve ,,

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo