Discussion :

[jerem_psg]

Bonjour, j'essaie de creer un petit script pour m'entrainer en perl car je debute donc je suis un initié lol et voila je me suis opposé a un probleme:
Comment comparer deux chaine "de caractére" je sais pas si ça se dit comme ça en perl. Je sais qu'en C c'est comme cela

Code C :

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

1
2
3
4
5
6
7
char var[50];
printf("Entrer le mot de pass:");
scanf("%s",var);
if (!strcmp(var,"test"))
{
printf("mot de pass correct\n");
}

voila j'aimrai faire exactement comme ça mais en perl quoi je bloque.
Merci beaucoup pour votre aide.
A bientot

[Jedai]

En Perl, tu dois utiliser l'opérateur "eq" pour tester l'égalité de deux chaînes de caractères, ainsi :

Code :

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

1
2
3
4
5
my $str1 = "Hello";
my $str2 = "Hello";
if( $str1 eq $str2 ) {
  print "str1 et str2 sont égales.\n";
}

Si tu veux l'exact équivalent de strcmp(), c'est l'opérateur "cmp".

Attention : pour les nombres, les opérateurs d'égalité et de comparaison sont "==" et "<=>".

(tu as par ailleurs "<="/"le", ">="/"ge" et "!="/"ne")

--
Jedaï

[jerem_psg]

A ouui j'ai compris mais par exemple sur ce petit script pourquoi cmd ne marche pas dsl :s

Code :

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

1
2
3
4
5
6
print "Entrer mot de passe:";
$a=<STDIN>;
if ($a cmp "salut")
{
	print "correct\n";
}

Merci beaucoup de votre aide.

[Jedai]

N'utilise pas d'abréviations comme "dsl", ce n'est pas trop bien vu sur le forum. Par ailleurs mets ton code entre balise CODE !!

Dans ton script, $a contient probablement "salut\n" car tu n'as pas retiré ce saut de ligne, tu dois utiliser chomp() pour cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl
use strict; use warnings;
 
print "Entrer mot de passe : ";
my $guess = <STDIN>;
chomp( $guess );
if ($guess eq "salut") {
  print "Correct\n";
}

Je te conseille fortement d'utiliser les pragmas "strict" et "warnings" comme dans mon code, ils t'aideront à avoir une programmation plus disciplinée et moins sujette à erreur et te signaleront les problèmes potentiels.

Encore une chose : cmp est l'équivalent de strcmp(), donc "a" cmp "a" vaut 0 (soit une valeur fausse en Perl), exactement comme strcmp() dans pareil cas, il vaut mieux utiliser "eq" si tu veux juste tester l'égalité, "cmp" est plus utile pour classer des strings, tout particulièrement dans un bloc pour la fonction sort().

--
Jedaï

[jerem_psg]

A d'accord escusez-moi pour les régles du forum. Merci beaucoup de ton aide
donc je dois mettre (use strict; use warnings pour que les erreurs soient clairs
et plus vite identifiées, d'accord j'ai bien compris.
Merci beaucoup .

[Jedai]

donc je dois mettre (use strict; use warnings pour que les erreurs soient clairs
et plus vite identifiées, d'accord j'ai bien compris.
Merci beaucoup .

En fait, "warnings" te préviendra d'erreur potentielles (qui seront pratiquement toujours des erreurs réelles), "strict" t'obligera à déclarer toutes tes variables (avec my() habituellement), ce qui t'évitera les cauchemars de débugueur que sont les petites fautes de frappe sur un nom de variable par exemple...
Au final tu obtiendras un programme bien plus propre que sans eux (car Perl est un langage très (trop pour le débutant) libéral par défaut).

Si parfois tu as un doute sur la signification d'un warning, rajoute "use diagnostics;" au début du programme, et tu auras une explication plus longue du warning, ainsi que des suggestions pour le corriger.

("strict" a quelques autres effets, mais si tu ne t'en aperçois jamais ce sera tant mieux, car les autres pratiques qu'il interdit sont encore bien plus dangereuse que l'auto-déclaration de variable)

--
Jedaï