Discussion :

[parano]

Bonjour,

j'ai écrit le code suivant pour vérifier qu'un login et mot de passe appartient bien à un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!usr/bin/perl -w
use strict;
 
my $ref = 
[
	["monLogin","monPass"],
	["test","test1"],
	["log","pass"],
	["monTest","monTest1"]
];
 
my ($log,$pass) = ("log","pass");
my ($login, $password);
my $source = 0;
foreach my $line(@$ref){
($login, $password) = @$line;
	if($login eq $log and $password eq $pass){
        $source = 2;
		$login = $log;
		$password = $pass;
		print "couple correct\n";
    }
}
print "$login ne $log or $password ne $pass\n";
if($login ne $log or $password ne $pass){
    print "couple incorrect\n";
	exit(0);
}

En sortie, j'ai :

Code :

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

1
2
3
couple correct
monTest ne log or monTest1 ne pass
couple incorrect

Ca vient du fait que même si ma condition est correcte, la boucle continue tout de même.
Je voudrai savoir comment faire pour sortir du foreach quand le if est correct.

Merci

[Jedai]

Les instructions de contrôle de boucle en Perl sont last, redo et next, ici il faut que tu utilises last pour sortir de la boucle en avance.

Personnellement j'aurais plutôt utilisé List::Util::first() pour faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!usr/bin/perl
use strict; use warnings;
 
use List::Util qw(first);
 
my @lines = 
(
	["monLogin","monPass"],
	["test","test1"],
	["log","pass"],
	["monTest","monTest1"]
);
 
my ($log,$pass) = ("log","pass");
my ($source, $login, $password);
 
if( defined( my $couple = first {$_->[0] eq $log and $_->[1] eq $pass} @lines ) ) {
   $source = 2;
   ($login, $password) = @$couple;
   print "couple correct\n";
}
else {
   print "couple incorrect\n";
   exit(0);
}

--
Jedaï

[Schmorgluck]

Vu qu'un login est unique par définition, est-ce qu'un hash n'aurait pas été plus adéquat pour cette vérification ? C'est la première idée qui me serait venue, perso. Évidemment, ça peut ne pas être commode s'il y a trop de logins, mais il faudrait chercher loin pour ça, je crois (et à ce stade, une BDD serait plus pertinente).

[JakoJako]

Pour sortir du foreach, il suffit de mettre un 'last' après le

Code :

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

1
2
3
 
print "couple correct\n";
last;

Au passage, je vois pas bien à quoi servent les lignes

Code :

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

1
2
3
 
$login = $log;
$password = $pass;

puisque tu connais déjà ces valeurs dans $log et $pass... Et que la seule chose qui doit t'intéresser est de savoir si le couple login/password est OK.


Mais avec un hash, c'est beaucoup plus simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!usr/bin/perl -w
use strict;
 
my %ref = (
	'monLogin' => 'monPass',
	'test' => 'test1',
	'log' => 'pass',
	'monTest' => 'monTest1'
);
 
my ($log,$pass) = ('log','pass');
 
my $strPassOK = $ref{$log};
if (defined($strPassOK) && ($strPassOK eq $pass))
{
	print "OK\n";
}
else
{
	print "KO\n";
}