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