lire requete mysql

Version imprimable

lire requete mysql

Bonjour, je voudrais savoir comment lire le resultat d'une requete dans un print("").
La requete fonctionne je l'ai essayé sous mysql directement

VOila la connexion et requete
Code:

1 2 3 4 5 6 7 8 9 10 11 my $dbh; $dbh= DBI->connect("DBI:$dbtype:dbname=$base;host=$host", $user); if (not $dbh) { &print_error("95PercentileGraph.pl ERROR: Failed to connect on mysql server. \n"); exit (1); } my $req4 ="select `HOST_NAME` from `HOST` where `HOST_ID` = '$host_id';"; my $sth4 = $dbh->prepare($req4); $sth4-> execute();
et je voudrais juste lire le resultat HOST_NAME, c'est simple mais je bloque!!

J'espere vous pourrez m'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
# Base de donnee / Requete:                                                                                                                                  
    my $dbh;
    $dbh= DBI->connect("DBI:$dbtype:dbname=$base;host=$host", $user);
    if (not $dbh)
    {
        &print_error("95PercentileGraph.pl ERROR: Failed to connect on mysql server. \n");
        exit (1);
    }
 
    my $req4 ="select `HOST_NAME` from `HOST` where `HOST_ID` = '$host_id';";
    my $sth4 = $dbh->prepare($req4);
    $sth4-> execute();
 
    while ( my @enr = $sth4 -> fetchrow_array)
    {
        print "@enr\n";
    }
    $sth4 -> finish;
    $dbh -> disconnect;

Merci j'ai trouver, c'est logique il me fallais un tableau, je suis encore debutant en perl sa se vois j'ai pas encore les automatisme!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
# Base de donnee / Requete:                                                                                                                                  
    my $dbh;
    $dbh= DBI->connect("DBI:$dbtype:dbname=$base;host=$host", $user) or die("95PercentileGraph.pl ERROR: Failed to connect on mysql server. \n");
    my $req4 ="select `HOST_NAME` from `HOST` where `HOST_ID` = ?";
    my $sth4 = $dbh->prepare($req4);
    $sth4-> execute($host_id);
 
    while ( my @enr = $sth4 -> fetchrow_array) {
        print "@enr\n";
    }
    $sth4 -> finish;
    $dbh -> disconnect;

12/06/2008, 09h42
parisien91

Bon je reviens parceque ce n'est pas la bonne solution!
Parceque je voudrais recuperer une seule donnée de ma base sql pour l'utiliser comme variable scalaire plus tard!
Dans ce que j'ai fait plus haut ca ne va pas puisque je peux la réutiliser apres!!

Avez vous des idées?

Merci
12/06/2008, 09h51
Jasmine80
Code:

1 2 3 4 5 6 7 my $hostname while ( my @enr = $sth4 -> fetchrow_array) { print "@enr\n"; $hostname = $enr[0]; } " réutilisation de $hostname
@enr est un array comme n'importe quel autre array et tu accèdes donc à ses valeurs par des indices.

Donc avec un SELECT item0, item1, item2, item3
Tu les récupères avec $enr[0], $enr[1], $enr[2] et $enr[3]
12/06/2008, 10h00
Jedai

Oui enfin y a plus simple hein :

Code:

my( $hostname ) = $sth4->fetchrow_array();

Si tu es certain qu'il n'y a qu'une seule ligne dans la réponse.

--
Jedaï
12/06/2008, 10h03
parisien91

Ah oui exactement c'est bon...!!

Je suis mauvais :D

Merci beaucoup encore une fois tu est la pour m'aider!!!
12/06/2008, 10h05
parisien91

Citation:

Envoyé par Jedai

Oui enfin y a plus simple hein :

Code:

my( $hostname ) = $sth4->fetchrow_array();

Si tu es certain qu'il n'y a qu'une seule ligne dans la réponse.

--
Jedaï

OUi c'est obliger il y a 1ligne vue que c'est le nom d'un serveur que je prends pour l'utiliser apres!