Discussion :

[apersonnat]

Bonjour,

Désolé si ce post a déjà été traité mais la fonction 'recherche dans le forum' est toujours NOK ..

Mon pb est le suivant, j'essaie simplement d'afficher le résultat d'une requête basique :

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
 
#/usr/bin/perl
use strict;
use warnings;
use Config;
use DBI;
 
print "hello\n";
 
my $dbh = DBI->connect( 'dbi:Oracle:host=localhost;sid=BT2P;port=1521',
                        'SH',
                        'SH',
                        ) || die "Database connection not made: $DBI::errstr";
my $sth = $dbh->prepare('SELECT instance_name FROM v$instance');
$sth->execute();
my $result = $sth->fetchrow_array;
while (@enr = $sth->fetchrow_array){print "@enr\n";}
$sth->finish;
$dbh->disconnect;

J'obtiens le code retour suivant :

Code :

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

1
2
3
4
5
 
Possible unintended interpolation of @enr in string at test.pl line 16.
Global symbol "@enr" requires explicit package name at test.pl line 16.
Global symbol "@enr" requires explicit package name at test.pl line 16.
Execution of test.pl aborted due to compilation errors.

Je comprends bien que le problème vient de la déclaration de du tableau @enr mais je n'arrive pas à trouver la solution.

Merci pour votre aide

Cdt,
Alain

[djibril]

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
 
#/usr/bin/perl
use strict;
use warnings;
use Config;
use DBI;
 
print "hello\n";
 
my $dbh = DBI->connect( 'dbi:Oracle:host=localhost;sid=BT2P;port=1521',
                        'SH',
                        'SH',
                        ) || die "Database connection not made: $DBI::errstr";
my $sth = $dbh->prepare('SELECT instance_name FROM v$instance');
$sth->execute();
while ( my @enr = $sth->fetchrow_array ) {
  print "@enr\n";
}
$sth->finish;
$dbh->disconnect;

[apersonnat]

Merci pour ta réponse Djibril, effectivement je n'ai plus d'erreur à l'exécution mais le résultat de la requête ne s'affiche pas.

j'obtiens simplement mon 'Hello' rien de plus ..

[djibril]

Es tu sûr de ta requête ?

Code sql :

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

SELECT instance_name FROM v$instance

[apersonnat]

Oui à 100% d'autant qu'à un moment donnée lors de mes essais j'ai eu le msg suivant :

Code :

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

1
2
3
 
hello
Can't use string ("BT2P") as a HASH ref while "strict refs" in use at test.pl line 16.

BT2P étant le sid (instance_name) de mon instance Oracle.

[djibril]

Si tu n'as rien, c'est que la requête

Code sql :

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

SELECT instance_name FROM v$instance

ne retourne rien.
Elle est censés de retourner quoi ?

[apersonnat]

Elle doit me retourner le nom de l'instance et cette requête fonctionne je te le confirme.

De plus comme je l'indiquais précedemment à un moment donné j'ai eu un msg d'erreur contenant le résultat de la requête :

Code :

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

1
2
 
Can't use string ("BT2P") as a HASH ref while "strict refs" in use at test.pl line 16.

BT2P étant le résultat de la requête.

[djibril]

Elle doit me retourner le nom de l'instance et cette requête fonctionne je te le confirme.

De plus comme je l'indiquais précedemment à un moment donné j'ai eu un msg d'erreur contenant le résultat de la requête :

Code :

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

1
2
 
Can't use string ("BT2P") as a HASH ref while "strict refs" in use at test.pl line 16.

BT2P étant le résultat de la requête.

oui mais maintenant, avec le script actuel, as tu des messages d'erreurs ?

[apersonnat]

Non je n'ai aucun msg d'erreur mais aucun résultat non plus ..

Peut être en essayant le mode debug ?

[apersonnat]

Bon j'ai trouvé ce qui cloche, ce n'est pas la requête, c'est simplement que dans ce cas le résultat est unitaire et pour une raison que j'ignore ce dernier n'est pas affiché.

Je viens de tester avec une requête selectionnant quelques lignes, ça fonctionne.

Merci pour ton aide