Besoin de précision pour module DBD::mysql

Bonjour,

j'utilise actuellement ce module pour communiquer avec ma base.

Mes sources d'info sont la doc présente sur la CPAN.

Mon objectif est simplement d'initializer une variables à l'aide de la valeur d'un attribut que j'extrais. Le problème ce que pour cette seul action, je me retrouve avec un bon paquet de ligne. J'ai essayé deux solutions (une qui marche l'autre pas)

Le code fonctionnel est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/env perl   use DBI;   my $b_RecupOccu = <<"SQL"; select occurrence from Mr_occurrence where mr = ? and url = ? SQL   # fonctionne my $RecupOccu = $dbh->prepare($b_RecupOccu);   $RecupOccu->execute ($mr, $url) or die "blabla\n";   # ce qui m'oblige à faire cela, et donc de passer par une var intermédiaire my $ref = $RecupOccu->fetchrow_hashref(); my $occurrence = $ref->{'occurrence'};   $RecupOccu->finish();

---

le non fonctionnel étant le suivant :

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

#!/usr/bin/env perl   use DBI;   my $b_RecupOccu = <<"SQL"; select occurrence from Mr_occurrence where mr = ? and url = ? SQL   # indication pour recuperer directement le resultat ... n'a aucun effet my $RecupOccu = $dbh->prepare($b_RecupOccu, {"mysql_use_result" => 1});   $RecupOccu->execute ($mr, $url) or die "blabla\n";   # grâce au changement de la valeur pour mysql_use_result, j'aurais du pouvoir extraire la valeur ainsi, my $occurrence = $RecupOccu->{'occurrence'}; # au lieu de ça j'écope d'un undef..   $RecupOccu->finish();

---

Ce code passe à l'interprétation, mais m'indique que $occurrence est à "unitialized", si je l'affiche par exemple.

J'ai trouvé ces infos dans la section Statement handles de la doc CPAN
http://search.cpan.org/dist/DBD-mysql/lib/DBD/mysql.pm

Si quelqu'un pouvait donc m'éclairer. Merci

http://djibril.developpez.com/tutoriels/perl/perl-dbi/

Ton tuto reviens à mon bout de code fonctionnel, je cherche justement une autre façon d'extraire l'attibut pour éviter d'avoir à passer par cette var intermédiaire qu'est $ref. Un peu à la manière de mon deuxième bout de code.

Je ne comprends pas ton problème, ta requête SQL te générer quel type de résultat, as tu un exemple de résultat ?
Que souhaites tu avoir concrètement ?

Dans ce cas il s'agit d'un entier que je veux récupérer. Mais cela pourrait être applicable à n'importe quelle situation où l'on veut récupérer simple, sans passer par les méthodes fetch_* . Je recherche une méthode moins contraignante en quelque sorte.

Méthode que je pensais avoir trouver sur la doc CPAN et dont un exemple est visible dans mon deuxième [ code ] et que je n'arrive pas à faire fonctionner.

Je t'ai demandé un exemple de résultats de ta requête SQL.
Je ne vois pas en quoi c'est une contrainte d'utiliser fetch_....
J'ai besoin de savoir ce que tu as comme résultat et ce qui te pose souci.

Si c'est juste parce que tu obtiens plusieurs ligne de résultat alors que tu n'en veux qu'une seul, tu peux utiliser select_row, ou même changer ta requête SQL en rajoutant la clause LIMIT, mais sans exemples, difficile de t'aider.

Le résultat est obligatoirement un int, un seul et unique int car la clef primaire est justement composée de url & mr.

Mais ce n'est pas le problème. Je veux juste remplacer

Code:

---

1 2 3

my $ref = $RecupOccu->fetchrow_hashref(); my $occurrence = $ref->{'occurrence'};

---

par un hypothétique :

Code:

---

1 2	my $occurrence = $RecupOccu->{'occurrence'};

---

Soit récupérer une valeur (et non plusieurs) en une seul ligne.

Bonjour,

et quelque chose de ce style ?

Code:

---

1 2 3 4 5 6 7 8

my $dbh = DBI->connect(...); my $query = 'SELECT * FROM table';   foreach (values(%{$dbh->selectall_hashref($query,'col1')})) { print $_->{col1}.' - '.$_->{col2}."\n"; }

---

ou peut-etre en un peu moins compact ...

Code:

---

1 2 3 4 5 6 7 8

my $dbh = DBI->connect(...); my $query = 'SELECT * FROM table'; my $result = $dbh->selectall_hashref($query,'col1'); foreach (values(%$result)) { print $_->{col1}.' - '.$_->{col2}."\n"; }

---

et si tu n'as qu'une seule ligne à récupérer regarde du coté de selectrow_hashref

Tout est dans la doc du CPAN