Discussion :

[hsbzh]

Bonjour, je commence à développer un script en perl et lorsque je veux récupérer les résultats stockés dans MySQL par la fonction :

Code :

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

1
2
3
4
5
 
while ( $hash_ref = $dbh->fetchrow_hashref ){
		$last_in_bits = $hash_ref->{IN};
		$last_out_bits = $hash_ref->{OUT};
	}

il me retourne cette erreur :

Code :

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

1
2
 
Can't locate object method "fetchrow_hashref" via package "DBI::db"

Cependant le module DBI a bien été installé, c'est le dernier en date et je me demande donc si il y aurait une explication à tout celà... merci =)

[Jedai]

Il nous manque des éléments pour répondre. Cependant je dirait que $dbh n'est pas un objet "statement handle" (requête), ce qui signifie qu'il n'a pas la méthode fetchrow_hashref(). Tu devrais nous donner le début de ton script et en particulier la façon dont tu as construit $dbh pour que nous t'en disions plus.

--
Jedaï

[hsbzh]

voilà la partie complète en relation avec MySQL :

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
 
my $dbh = DBI->connect(    "DBI:mysql:database=oreon_storage;host=localhost", 
                           "root", 
                           "",
                           {'RaiseError' => 1}
                       );
my $sql_query = "INSERT INTO bits VALUES('','".abs($in_bits)."','".abs($out_bits)."');";
my $sth = $dbh->do($sql_query);
my $id = $dbh->{'mysql_insertid'};
$id--;
if (!defined($sth)){
	print "MySQL Error";
	exit($ERRORS{"UNKNOWN"});
}
 
#############################################
#####          Get trafic Day - 1
##
 
my $hash_ref;
if ( defined($id) && $id > 0 ){
	$sql_query = "SELECT * FROM bits WHERE `id` = '".$id."';";
	$sth = $dbh->do($sql_query);
	while ( $hash_ref = $dbh->fetchrow_hashref ){
		$last_in_bits = $hash_ref->{IN};
		$last_out_bits = $hash_ref->{OUT};
	}
}
 
my $rc = $dbh->disconnect;

[Jedai]

Tu as écris $dbh alors que tu voulais écrire $sth.

--
Jedaï

[hsbzh]

Le problème c'est que lorsque j'écris

Code :

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

1
2
 
$hash_ref = $sth->fetchrow_hashref

j'ai en retour :

Code :

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

1
2
 
Can't call method "fetchrow_hashref" without a package or object reference at

[Jedai]

do() est une méthode qui permet d'exécuter une requête SQL et de retourner le nombre de lignes affectées, typiquement on l'utilise pour des insert, update... Mais jamais pour des select. Ce que tu veux faire c'est sans doute :

Code :

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

1
2
3
4
5
6
7
8
9
if ( defined($id) && $id > 0 ){
	$sql_query = "SELECT * FROM bits WHERE `id` = ? ;";
	$sth = $dbh->prepare($sql_query);
        $sth->execute( $id );
	while ( my $hash_ref = $sth->fetchrow_hashref ){
		$last_in_bits = $hash_ref->{IN};
		$last_out_bits = $hash_ref->{OUT};
	}
}

--
Jedaï