Problème avec la fonction shift()

Version imprimable

19/04/2011, 17h46
KaNDeL

Problème avec la fonction shift()
Bonjour,
Alors voilà j'ai un petit souci avec la fonction shift(), je m'explique :
j'exécute une requête SQL qui me renvois au moins 2 enregistrements que je stocke dans un tableau :
Code:

1 2 3 4 5 my $SQL = "SELECT Nom, Event, Period FROM parametres_alertes WHERE Gravite != '0' " ; my $results_ref = &SQL_Query_h($SQL, $dbh) ;
(la fonction &SQL_Query_h est une fonction que j'ai définit avant)

Mais quand je fais :
Code:

1 2 3 4 5 6 7 while(my $row = shift(@$results_ref)) { my @this_row = @$row ; $nom = $this_row[0]; $event = $this_row[1]; $period = $this_row[2]; ...
Un seul résultat n'est retourné, et quand je fais la même opération avec la fonction pop(), un seul résultat est aussi retourné (mais pas le même !!!)

Je n'arrive pas à comprendre pourquoi...

Merci d'avance pour votre aide qui me sera très utile !
20/04/2011, 08h04
Philou67430
Montre nous ta fonction SQL_Query_h, qui retourne sans doute une liste au lieu d'une référence à une liste anonyme.
Pour retourner un résultat conforme à ce que tu en attends, ta fonction devrait ressembler à cela :
Code:

1 2 3 4 sub SQL_Query_h { #... return [ $result1, $result2 ]; }

Voila ma fonction :

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
29
30
31
32
33
34
35
36
 
use DBI;
 
sub SQL_Query_h
{
	my $SQL = shift ;
	my $dbh = shift ;
	if($DEBUG_LVL > 1)
	{
		open LOG_ON,	">> c:\\dad\\jobs\\log_on.txt " or die "can't open log_Pierre :	$!". DBI->errstr ."\n" ;
		print LOG_ON $SQL."\n" ;
	}
 
	my $query = $dbh->prepare($SQL) ;
	eval
	{
		$query -> execute() or die "problem : $DBI::errstr \t\t\t\t $SQL\n" ;
	} ;
 
	if($@)
	{
		print "Caught error: $@\n" ;
		undef $dbh ;
		$dbh = conn() ;
		$query = $dbh->prepare($SQL) ;
		eval
		{
			$query -> execute() or die "problem : $DBI::errstr" ;
		} ;
	} ;
 
	my $ref_to_array_of_row_refs = $query->fetchall_arrayref() or die "problem : $DBI::errstr" ;
	$query->finish() ;
 
	return $ref_to_array_of_row_refs ;
}

20/04/2011, 09h21
KaNDeL
C'est bon j'ai trouvé la solution en utilisant :
Code:

1 2 3 4 5 6 my $results_ref = &SQL_Query_h($SQL, $dbh) ; my $row; foreach $row ( @{$results_ref} ) {...
Merci quand même pour votre réponse !