Débutant [Perl] - Programmation
Marsh Posté le 01-12-2001 à 17:25:40
print "idem" if $ch1 eq $ch2;
Marsh Posté le 01-12-2001 à 20:31:15
Humm je sais pas si c'est a cause du eq , mais ca ne semble pas marcher...
Voici ma fonction :
Je sais que le probleme vient pas du fihier ETUDIANTS puisque toute mes fonctions marche si lj'enleve la comparaison entre $ville et $villeRech...
Car meem si je tape uen ville uqi se trouve dans le fichier elle me retourne personne...
sub listeVille {
print "\nVille recherché:";
$villeRech = <STDIN>;
print "\n\# d'étudiant\tNote\n\n";
while (<ETUDIANTS> ) {
chomp;
($num,$nom,$prenom,$ville,$note) = split (/);
if ($ville eq $villeRech) {
$nbEtudiants++;
$noteTotal += $note;
print "$num\t$note\n";
}
}
if ($nbEtudiants != 0) {
$moy = $noteTotal / $nbEtudiants;
print "\nMoyenne : $moy";
}
}
Marsh Posté le 02-12-2001 à 03:03:19
il est où le open ETUDIANTS, "<etudiants.dat"; ?
mets-toi en mode strict toujours (use strict; en tout debut de script)
Marsh Posté le 02-12-2001 à 15:00:39
AH ca il est bcp plus loins dans le programme
EN fait c'est que j'offre 5 choix et la personne choisit une des 5 options et dépendant de l'option choisit, il va aller dans la méthode approprié ... mais c'est la seul qui foire ...
avec == tout passe (ex q = e ca passe) et avec eq Lachenaie != Lachenaie)...
Marsh Posté le 01-12-2001 à 01:03:34
Comment on compare 2 variables de type String en Perl ?
(ne me dite pas $var1 == $var2 car ça ne marche pas)