Discussion :

[KaNDeL]

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 :

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

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 :

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

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 !

[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 :

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

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

[KaNDeL]

Voila ma fonction :

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

[KaNDeL]

C'est bon j'ai trouvé la solution en utilisant :

Code :

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

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 !