Discussion :

[bennyboy]

Bonjour à tous,

Je suis actuellement en train d'écrire un script qui dois lancer des commandes sqlplus (mais sans modules) et j'ai un problème pour "escaper" un caractère $.

Voici le petit morceau de code qui me pose problème:

Code :

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

1
2
my @out = qx{sqlplus / as sysdba << EOF
select SWITCHOVER_STATUS from V\$database;};

Problème: avec ce code, le $database n'apparait jamais, or j'ai bien echappé le caractère et donc je devrais avoir $database qui s'affiche, au lieu de ça j'ai du vide...

Si quelqu'un parmis vous a une solution je lui en serait hyper reconnaissant ;-)

Merci

[jean.2edi]

• Il manque la fermeture de ton EOF !
• Tu veux que ton $database soit interprété par le Shell et non pas le Perl ?

Si tu veux que database soit interprété par le Shell, ça marche comme le prouve cet exemple :

Code :

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

1
2
3
4
5
6
7
8
 
$database = 'KO'; 
my @out = qx{database=toto; cat << EOF
select SWITCHOVER_STATUS from V\$database;
EOF
};
 
print "@out\n";

ce qui écrit bien :

Code :

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

1
2
 
select SWITCHOVER_STATUS from Vtoto;