Sortir d'un foreach quand le if est correct

Version imprimable

Bonjour,

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

Code:

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:

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

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:

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ï

20/12/2007, 11h27
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).

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

1 2 3 print "couple correct\n"; last;
Au passage, je vois pas bien à quoi servent les lignes
Code:

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:

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"; }