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