perl et sqlplus

**donny** · 30/11/2006, 15h23

salut,

Est ce que quelqu un connait la synthaxe en perl pour pouvoir faire du sqlplus;
en shelle c'est quelquechose dans se genre

Code :

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

sqlplus login/password@database  marequetesql

Merci

**donny** · 30/11/2006, 15h26

faut il regarder du coté dela fonction system

system 'sqlplus login/password@database' ??

**pospos** · 30/11/2006, 21h09

en perl il faut utiliser DBI et ses drivers DBD (DBD::Oracle dans ton cas)

**donny** · 01/12/2006, 09h58

merci
je viens d installer le module
j'ai fait ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
 
use DBI;
 
$user = 'toto';
$password = 'xxx';
$dbconnectstring = 'basetest';
 
 
$dbh = DBI->connect('dbi:Oracle:',$user.'@'.$password,$dbconnectstring);

j'ai cette erreur

DBI connect('','toto@basetest',...) failed: ORA-12154: TNS:could not resolve
the connect identifier specified (DBD ERROR: OCIServerAttach) at C:\Documents a
nd Settings\donny\Bureau\doc\connect.pl line 10

je pije pas trop ?

**donny** · 01/12/2006, 12h00

si je souhaite le faire avec sqlplus
je peux utiliser sytem :
system 'sqlplus ....';

????

**MarneusCalgarXP** · 01/12/2006, 13h39

Je ne comprends pas, où est le problème ?
Cela fait presque 24h que tu as posé la question si tu pouvais utiliser la commande system, pourquoi n'essaies-tu pas ? La seule personne qui peut te dire si tu peux ou pas, c'est ton admin système ou ton boss, selon le projet...

si tu veux le lancer à l'aide de system, il te faudra faire une liste:

Code perl :

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

system("program", "arg1", "arg2");

c'est peut-être plus simple d'utiliser qx:

Code perl :

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

qx/program arg1 arg2/;

ou directement, l'appeler de la manière suivante:

Code perl :

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

`program arg1 arg2`;

**donny** · 01/12/2006, 14h13

si je viens ici c'est que je ne comprends
le but d'un forum c'est d'aider les autres
et pour le moment j'ai pas compris donc je viens
si sa prend 24h ou 48h ou 108ans c'est mon probleme

la seule chose que je voulais savoir c'etait si je pouvais en perl, appeler la commande sqlplus comme on le ferai dans un shell et executer ma requetes par la suite;

On m'a dit de regarder DBI je viens de voir et sa me convient pas;
je veux le faire avec sqlplus;

Merci

**MarneusCalgarXP** · 01/12/2006, 14h27

Envoyé par donny

si je viens ici c'est que je ne comprends
le but d'un forum c'est d'aider les autres
et pour le moment j'ai pas compris donc je viens
si sa prend 24h ou 48h ou 108ans c'est mon probleme

Certes, mais quand tu disposes d'une solution (tu as parlé de la commande system, c'est donc que tu sais qu'elle existe), pourquoi ne pas l'expérimenter ?

Un forum est fait pour te mettre sur une piste, pas pour t'apporter une solution toute faite !

**donny** · 01/12/2006, 14h40

qui à parler de solution toute faite;
La premiere chose que j'ai demander
c'est
est ce que je peux le faire avec system

j'ai l'impression que ya de la mauvaise foi sur ce forum
et les personnes sont avare en conseil

**MarneusCalgarXP** · 01/12/2006, 15h11

Le problème avec sqlplus, si mes souvenirs sont bons, c'est qu'il ne renvoie pas dans la sortie standard le résultat des requêtes, donc tu pourras juste t'en servir pour executer des ordres genre insert ou update, sans avoir le code de retour. Si tu lances un select, tu n'auras pas le résultat non plus. donc son intêret est limité !

Il vaut mieux utiliser le module DBI et installer le driver DBD::Oracle, comme conseillé plus haut. Après, pour la chaine de connexion, une simple recherche google "perl DBI Oracle" me donne les liens suivants:
http://www.med.univ-rennes1.fr/~poul...troperl35.html
http://www.orafaq.com/faqperl.htm

Et donc si on compare au code que tu as utilisé, on voit que tu n'as pas précisé le nom de la base au bon endroit, et que ton code devrait être

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl
 
use DBI;
 
$user = 'toto';
$password = 'xxx';
$schema = 'basetest';
 
$dbh = DBI->connect("dbi:Oracle:$schema", $user, $password)
          || die("impossible de se connecter à $schema");

**donny** · 01/12/2006, 15h17

le code que tu viens de me montrer avec DBI
j'ai fait une chose dans ce genre
mais comme je devait utiliser sqlplus j'ai modifier avec system et j'ai fait cela

Code :

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

1
2
3
4
5
6
7
8
9
10
$result = system ('echo  "select * from dual;" | sqlplus -s /nolog >> /dev/null user/pass@mabase') ;
 
if ($result == 0)
{
print "La connexion fonctionne\n";
}
else
{
print "La ne connexion fonctionne pas\n";
}

mais le truc est par rapport au code de retour
je viens de tester et j'ai 0 en code de retour;
mais si je modifie ma requete et je fait un select sur une table qui n'existe pas, j'ai aussi un 0 en code de retour ou si je modifie le user;
apparament si je n'ai pas de bon code de retour je vais peut etre re opter pour DBI

**donny** · 01/12/2006, 16h24

juste une question
j'ai ce code qui peut me permettre d'avoir le bon code de retour
j'ai juste un petit soucis
si je le met ainsi dans system

Code :

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

1
2
3
4
5
6
system ("sqlplus username/password@instance <<-!EOSQL
         WHENEVER SQLERROR  exit 5
         select dummy from dual;
         exit 0
!EOSQL
';");

comme il est sur plusieurs ligne sa bogue
j'ai essayer de le mettre dans une variable

Code :

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

1
2
3
4
5
6
7
8
$code = "'sqlplus username/password@instance <<-!EOSQL
         WHENEVER SQLERROR  exit 5
         select dummy from dual;
         exit 0
!EOSQL
';";
 
system ($code);

sa plante aussi;

**donny** · 01/12/2006, 17h22

je viens de reessayer et sa fonctionne
j'ai bien un code = 0 en cas de succes et different dans les autres cas

perl et sqlplus

SGBD Perl

Discussions similaires

Partager

Partager