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.