Discussion :

[parisien91]

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 :

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

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

[parisien91]

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

[djibril]

Code :

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

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;

[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

[Jasmine80]

Code :

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

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]

[Jedai]

Oui enfin y a plus simple hein :

Code :

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

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

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

--
Jedaï

[parisien91]

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

Je suis mauvais

Merci beaucoup encore une fois tu est la pour m'aider!!!

[parisien91]

Oui enfin y a plus simple hein :

Code :

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

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!