Discussion :

[mensoif]

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 :

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
 
#!/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 :

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
 
 
#!/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

[djibril]

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

[mensoif]

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.

[djibril]

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 ?

[mensoif]

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.

[djibril]

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.

[mensoif]

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 :

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

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

par un hypothétique :

Code :

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

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

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

[psylox]

Bonjour,

et quelque chose de ce style ?

Code :

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

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 :

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

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